Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter. More...

Detailed Description

Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind type parameter.

See the documentation of setFFTI for more details.

Parameters

[in]

data

: The input contiguous vector of arbitrary size of,

type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),

containing the periodic sequence whose FFT is to be computed.

Returns: fft : The output vector of the same type, kind, and size as the input data, containing the FFT result.

Possible calling interfaces ⛓

: use pm_fftpack, only: getFFTI

fft = getFFTI(data(:))

pm_fftpack::getFFTI
Generate and return the Inverse (normalized) Fourier Transform of a periodic sequence of type complex...
Definition: pm_fftpack.F90:1567

pm_fftpack
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftpack.F90:205

Remarks: The procedures under discussion are impure.

Note: This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.

See also: getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI

Example usage ⛓

: 1program example

2

3 use pm_kind, only: SK, IK, LK

4 use pm_io, only: display_type

5 use pm_fftpack, only: getfactorFFT

6 use pm_fftpack, only: getFFTF, getFFTI

7 use pm_distUnif, only: getUnifRand

8 use pm_mathCompare, only: isClose

9 use pm_err, only: setAsserted

10

11 implicit none

12

13 integer(IK) :: i

14 integer(IK) :: lenData

15 type(display_type) :: disp

16 disp = display_type(file = "main.out.F90")

17

18 do i = 1, 5

19 block

20 use pm_kind, only: TKC => CKS

21 real(TKC) :: reltol

22 complex(TKC), allocatable :: data(:), adat(:)

23 call disp%show("lenData = getUnifRand(5, 100)")

24 lenData = getUnifRand(5, 100)

25 call disp%show("lenData")

26 call disp%show( lenData )

27 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

28 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

29 call disp%show("data")

30 call disp%show( data )

31 call disp%skip()

32 call disp%show("adat = getFFTI(getFFTF(data))")

33 adat = getFFTI(getFFTF(data))

34 call disp%show("adat")

35 call disp%show( adat )

36 call disp%show("reltol = sqrt(epsilon(1._TKC))")

37 reltol = sqrt(epsilon(1._TKC))

38 call disp%show("reltol")

39 call disp%show( reltol )

40 call disp%show("isClose(data, adat, reltol = reltol)")

41 call disp%show( isClose(data, adat, reltol = reltol) )

42 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

43 call setAsserted(all(isClose(data, adat, reltol = reltol)))

44 call disp%skip()

45 end block

46

47 block

48 use pm_kind, only: TKC => CKD

49 real(TKC) :: reltol

50 complex(TKC), allocatable :: data(:), adat(:)

51 call disp%show("lenData = getUnifRand(5, 100)")

52 lenData = getUnifRand(5, 100)

53 call disp%show("lenData")

54 call disp%show( lenData )

55 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

56 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

57 call disp%show("data")

58 call disp%show( data )

59 call disp%skip()

60 call disp%show("adat = getFFTI(getFFTF(data))")

61 adat = getFFTI(getFFTF(data))

62 call disp%show("adat")

63 call disp%show( adat )

64 call disp%show("reltol = sqrt(epsilon(1._TKC))")

65 reltol = sqrt(epsilon(1._TKC))

66 call disp%show("reltol")

67 call disp%show( reltol )

68 call disp%show("isClose(data, adat, reltol = reltol)")

69 call disp%show( isClose(data, adat, reltol = reltol) )

70 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

71 call setAsserted(all(isClose(data, adat, reltol = reltol)))

72 call disp%skip()

73 end block

74

75 block

76 use pm_kind, only: TKC => CKH

77 real(TKC) :: reltol

78 complex(TKC), allocatable :: data(:), adat(:)

79 call disp%show("lenData = getUnifRand(5, 100)")

80 lenData = getUnifRand(5, 100)

81 call disp%show("lenData")

82 call disp%show( lenData )

83 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")

84 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

85 call disp%show("data")

86 call disp%show( data )

87 call disp%skip()

88 call disp%show("adat = getFFTI(getFFTF(data))")

89 adat = getFFTI(getFFTF(data))

90 call disp%show("adat")

91 call disp%show( adat )

92 call disp%show("reltol = sqrt(epsilon(1._TKC))")

93 reltol = sqrt(epsilon(1._TKC))

94 call disp%show("reltol")

95 call disp%show( reltol )

96 call disp%show("isClose(data, adat, reltol = reltol)")

97 call disp%show( isClose(data, adat, reltol = reltol) )

98 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

99 call setAsserted(all(isClose(data, adat, reltol = reltol)))

100 call disp%skip()

101 end block

102

103 block

104 use pm_kind, only: TKC => RKS

105 real(TKC) :: reltol

106 real(TKC), allocatable :: data(:), adat(:)

107 call disp%show("lenData = getUnifRand(5, 100)")

108 lenData = getUnifRand(5, 100)

109 call disp%show("lenData")

110 call disp%show( lenData )

111 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

112 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

113 call disp%show("data")

114 call disp%show( data )

115 call disp%skip()

116 call disp%show("adat = getFFTI(getFFTF(data))")

117 adat = getFFTI(getFFTF(data))

118 call disp%show("adat")

119 call disp%show( adat )

120 call disp%show("reltol = sqrt(epsilon(1._TKC))")

121 reltol = sqrt(epsilon(1._TKC))

122 call disp%show("reltol")

123 call disp%show( reltol )

124 call disp%show("isClose(data, adat, reltol = reltol)")

125 call disp%show( isClose(data, adat, reltol = reltol) )

126 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

127 call setAsserted(all(isClose(data, adat, reltol = reltol)))

128 call disp%skip()

129 end block

130

131 block

132 use pm_kind, only: TKC => RKD

133 real(TKC) :: reltol

134 real(TKC), allocatable :: data(:), adat(:)

135 call disp%show("lenData = getUnifRand(5, 100)")

136 lenData = getUnifRand(5, 100)

137 call disp%show("lenData")

138 call disp%show( lenData )

139 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

140 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

141 call disp%show("data")

142 call disp%show( data )

143 call disp%skip()

144 call disp%show("adat = getFFTI(getFFTF(data))")

145 adat = getFFTI(getFFTF(data))

146 call disp%show("adat")

147 call disp%show( adat )

148 call disp%show("reltol = sqrt(epsilon(1._TKC))")

149 reltol = sqrt(epsilon(1._TKC))

150 call disp%show("reltol")

151 call disp%show( reltol )

152 call disp%show("isClose(data, adat, reltol = reltol)")

153 call disp%show( isClose(data, adat, reltol = reltol) )

154 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

155 call setAsserted(all(isClose(data, adat, reltol = reltol)))

156 call disp%skip()

157 end block

158

159 block

160 use pm_kind, only: TKC => RKH

161 real(TKC) :: reltol

162 real(TKC), allocatable :: data(:), adat(:)

163 call disp%show("lenData = getUnifRand(5, 100)")

164 lenData = getUnifRand(5, 100)

165 call disp%show("lenData")

166 call disp%show( lenData )

167 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")

168 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

169 call disp%show("data")

170 call disp%show( data )

171 call disp%skip()

172 call disp%show("adat = getFFTI(getFFTF(data))")

173 adat = getFFTI(getFFTF(data))

174 call disp%show("adat")

175 call disp%show( adat )

176 call disp%show("reltol = sqrt(epsilon(1._TKC))")

177 reltol = sqrt(epsilon(1._TKC))

178 call disp%show("reltol")

179 call disp%show( reltol )

180 call disp%show("isClose(data, adat, reltol = reltol)")

181 call disp%show( isClose(data, adat, reltol = reltol) )

182 call disp%show("call setAsserted(all(isClose(data, adat, reltol = reltol)))")

183 call setAsserted(all(isClose(data, adat, reltol = reltol)))

184 call disp%skip()

185 end block

186 end do

187

188end program example

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4106

pm_err::setAsserted
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735

pm_err::show
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1618

pm_fftpack::getFFTF
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftpack.F90:746

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074

pm_mathCompare::isClose
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
Definition: pm_mathCompare.F90:523

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281

pm_kind::CKH
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:477

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:310

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280

pm_kind::CKD
integer, parameter CKD
The double precision complex kind in Fortran mode. On most platforms, this is a 64-bit real kind.
Definition: pm_kind.F90:311

pm_kind::RKD
integer, parameter RKD
The double precision real kind in Fortran mode. On most platforms, this is an 64-bit real kind.
Definition: pm_kind.F90:308

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279

pm_kind::RKH
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
Definition: pm_kind.F90:462

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:307

pm_mathCompare
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Definition: pm_mathCompare.F90:205

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe

4./main.exe

Example output ⛓
1lenData = getUnifRand(5, 100)

2lenData

3+96

4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

5data

6(+1.79820979, +0.346177399), (+1.42557573, +0.381672502), (+1.31108427, +0.378283143), (+1.92853034, +0.697925687E-1), (+1.30352998, +0.431399107), (+1.63006115, +0.774936616), (+1.20374060, +0.885868609), (+1.23067403, +0.633174539), (+1.68178642, +0.382436991), (+1.87149835, +0.596805215E-1), (+1.05752099, +0.582472742), (+1.09849143, +0.216566503), (+1.55405426, +0.826042354), (+1.42147517, +0.145367146), (+1.95498109, +0.294712543), (+1.71407032, +0.262862980), (+1.92915475, +0.872337401), (+1.89821351, +0.694514334), (+1.21591163, +0.735613823), (+1.50664115, +0.421884656), (+1.67927921, +0.590082884), (+1.17347968, +0.328691423), (+1.23281074, +0.917726815), (+1.90854144, +0.388812959), (+1.83312106, +0.832777679), (+1.91887355, +0.772165060E-1), (+1.15493345, +0.704388618), (+1.01069522, +0.426787317), (+1.99206316, +0.949144602), (+1.61651850, +0.948093474), (+1.30607700, +0.807071030), (+1.42440426, +0.193321764), (+1.07711196, +0.755176783), (+1.80102456, +0.127094328), (+1.41060495, +0.940609872), (+1.78647494, +0.819273591E-1), (+1.38903856, +0.829695940), (+1.61259937, +0.409410000E-1), (+1.01305866, +0.659299672), (+1.02863574, +0.277051210), (+1.51650631, +0.918728948), (+1.09081268, +0.167735934), (+1.03639734, +0.644312263), (+1.30824637, +0.359648287), (+1.18509698, +0.870032907), (+1.40619850, +0.555115223), (+1.31802976, +0.755456805), (+1.94670939, +0.158661604), (+1.32840204, +0.720246494), (+1.00341058, +0.329814076), (+1.21778655, +0.818794668), (+1.46197939, +0.893468142), (+1.40238142, +0.235910833), (+1.76256418, +0.769756854), (+1.83150125, +0.212424219), (+1.77791071, +0.140440762), (+1.82528639, +0.774068236), (+1.31966591, +0.407676339), (+1.77665806, +0.948583305), (+1.71105850, +0.472121179), (+1.41065383, +0.389561653E-1), (+1.88926697, +0.616849780), (+1.74516630, +0.391989410), (+1.64406443, +0.356610894), (+1.97084320, +0.990346670E-1), (+1.69760156, +0.505395412), (+1.43126249, +0.397324443), (+1.10203075, +0.730108678), (+1.05632257, +0.257616758), (+1.06726670, +0.756467581E-1), (+1.69803309, +0.526986241), (+1.60885119, +0.697902977), (+1.39033532, +0.317769468), (+1.19622517, +0.966929197E-1), (+1.39772916, +0.766963899), (+1.32893717, +0.361429274), (+1.89293909, +0.107182145), (+1.32009053, +0.142687678), (+1.76533341, +0.187288165), (+1.80428362, +0.428981125), (+1.81992769, +0.504256725), (+1.53647268, +0.333412111), (+1.92011189, +0.773115158), (+1.96880960, +0.599195600), (+1.16626489, +0.228110671), (+1.81944752, +0.767045856), (+1.16459024, +0.299173594), (+1.62010264, +0.863335729E-1), (+1.09426832, +0.495418310E-1), (+1.11454010, +0.793246865), (+1.86753750, +0.388799727), (+1.68706012, +0.780249298), (+1.61281598, +0.963994026), (+1.98683357, +0.189724863), (+1.63940167, +0.702755451), (+1.25306487, +0.259681582)

7

8adat = getFFTI(getFFTF(data))

9adat

10(+1.79820991, +0.346177340), (+1.42557573, +0.381672502), (+1.31108475, +0.378283203), (+1.92853045, +0.697925538E-1), (+1.30353022, +0.431399047), (+1.63006139, +0.774936616), (+1.20374095, +0.885868549), (+1.23067403, +0.633174598), (+1.68178689, +0.382437050), (+1.87149835, +0.596805625E-1), (+1.05752158, +0.582472682), (+1.09849167, +0.216566473), (+1.55405450, +0.826042354), (+1.42147517, +0.145367146), (+1.95498157, +0.294712543), (+1.71407020, +0.262862980), (+1.92915511, +0.872337461), (+1.89821339, +0.694514394), (+1.21591187, +0.735613823), (+1.50664127, +0.421884596), (+1.67927957, +0.590083003), (+1.17347980, +0.328691423), (+1.23281121, +0.917726874), (+1.90854144, +0.388812870), (+1.83312154, +0.832777679), (+1.91887355, +0.772164911E-1), (+1.15493393, +0.704388618), (+1.01069546, +0.426787257), (+1.99206305, +0.949144542), (+1.61651886, +0.948093593), (+1.30607724, +0.807071149), (+1.42440414, +0.193321735), (+1.07711220, +0.755176902), (+1.80102444, +0.127094373), (+1.41060531, +0.940609932), (+1.78647518, +0.819272995E-1), (+1.38903892, +0.829695880), (+1.61259937, +0.409410410E-1), (+1.01305914, +0.659299672), (+1.02863550, +0.277051181), (+1.51650655, +0.918728948), (+1.09081280, +0.167735979), (+1.03639770, +0.644312322), (+1.30824661, +0.359648198), (+1.18509722, +0.870032966), (+1.40619874, +0.555115223), (+1.31803024, +0.755456805), (+1.94670916, +0.158661574), (+1.32840228, +0.720246553), (+1.00341058, +0.329814166), (+1.21778691, +0.818794668), (+1.46197963, +0.893468082), (+1.40238166, +0.235910833), (+1.76256418, +0.769756913), (+1.83150148, +0.212424159), (+1.77791071, +0.140440792), (+1.82528687, +0.774068236), (+1.31966579, +0.407676309), (+1.77665842, +0.948583305), (+1.71105862, +0.472121090), (+1.41065395, +0.389562063E-1), (+1.88926697, +0.616849840), (+1.74516678, +0.391989410), (+1.64406419, +0.356610835), (+1.97084332, +0.990347862E-1), (+1.69760168, +0.505395412), (+1.43126273, +0.397324532), (+1.10203099, +0.730108619), (+1.05632293, +0.257616758), (+1.06726682, +0.756467134E-1), (+1.69803333, +0.526986361), (+1.60885119, +0.697902918), (+1.39033556, +0.317769408), (+1.19622517, +0.966929048E-1), (+1.39772964, +0.766963959), (+1.32893741, +0.361429274), (+1.89293909, +0.107182227), (+1.32009077, +0.142687798), (+1.76533353, +0.187288150), (+1.80428350, +0.428981155), (+1.81992793, +0.504256725), (+1.53647268, +0.333412021), (+1.92011213, +0.773115337), (+1.96880984, +0.599195600), (+1.16626525, +0.228110597), (+1.81944752, +0.767045856), (+1.16459072, +0.299173564), (+1.62010241, +0.863335580E-1), (+1.09426856, +0.495417938E-1), (+1.11454010, +0.793246746), (+1.86753786, +0.388799667), (+1.68706036, +0.780249119), (+1.61281633, +0.963994026), (+1.98683381, +0.189724863), (+1.63940227, +0.702755332), (+1.25306463, +0.259681582)

11reltol = sqrt(epsilon(1._TKC))

12reltol

13+0.345266977E-3

14isClose(data, adat, reltol = reltol)

15T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

16call setAsserted(all(isClose(data, adat, reltol = reltol)))

17

18lenData = getUnifRand(5, 100)

19lenData

20+17

21data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

22data

23(+1.8770564695263858, +0.27031110164217220), (+1.2964856156777023, +0.50151736930717949), (+1.7319622809462647, +0.41133435524728457), (+1.1062591709426046, +0.82121798237032639), (+1.9835120683994596, +0.28932861370285645), (+1.7485293546224803, +0.48119720948660016E-1), (+1.9307355330795248, +0.39740475291619570), (+1.1673342256497206, +0.37369573536946310), (+1.9626845853455921, +0.23135342733930608), (+1.9433219197265896, +0.59939012513319567), (+1.1203094923275430, +0.51936632816383688), (+1.9424508085310763, +0.28678581381279400), (+1.0482979787132329, +0.18651357746138408), (+1.8786548071068352, +0.55106424504788454), (+1.8628279605656735, +0.48041215015989758), (+1.4844207312308262, +0.82533652848309180), (+1.8469256024636258, +0.77072406603432020)

24

25adat = getFFTI(getFFTF(data))

26adat

27(+1.8770564695263854, +0.27031110164217231), (+1.2964856156777023, +0.50151736930717949), (+1.7319622809462649, +0.41133435524728457), (+1.1062591709426051, +0.82121798237032628), (+1.9835120683994598, +0.28932861370285656), (+1.7485293546224807, +0.48119720948660023E-1), (+1.9307355330795251, +0.39740475291619576), (+1.1673342256497208, +0.37369573536946316), (+1.9626845853455923, +0.23135342733930617), (+1.9433219197265899, +0.59939012513319567), (+1.1203094923275434, +0.51936632816383699), (+1.9424508085310768, +0.28678581381279405), (+1.0482979787132334, +0.18651357746138417), (+1.8786548071068352, +0.55106424504788465), (+1.8628279605656737, +0.48041215015989752), (+1.4844207312308266, +0.82533652848309180), (+1.8469256024636258, +0.77072406603432031)

28reltol = sqrt(epsilon(1._TKC))

29reltol

30+0.14901161193847656E-7

31isClose(data, adat, reltol = reltol)

32T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

33call setAsserted(all(isClose(data, adat, reltol = reltol)))

34

35lenData = getUnifRand(5, 100)

36lenData

37+43

38data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

39data

40(+1.59685602066907084622352642111213199, +0.110022377465705971412055492282833615), (+1.67353430005051803474834601987544526, +0.662712077982696962857472361473971258E-1), (+1.51331507164694653957176461795236040, +0.160982335040821918208982005135348135), (+1.26112339803655880327020797475908677, +0.945791774500592166828572392098293700E-1), (+1.44533811645428358060270292480523934, +0.473013818464825759945462363160137622), (+1.52943759574582052420994440693375316, +0.714062180709090799075605717988172699), (+1.49195076038946036208362129170871358, +0.519884267873267700769396390617693252E-1), (+1.33627253404073055782842566143435340, +0.180147900736920243116184885662365588), (+1.00546486761064331865974105582392521, +0.525920557640550197188980354173025709), (+1.76315291890913351956152099298510914, +0.606472983312130680320399132852330221), (+1.33136013793738976157694095133286757, +0.163724572864475842851860712346409915E-1), (+1.88241823163127319999408674633824859, +0.674706688482230747321368042671465673), (+1.27042299896021798460532160280202066, +0.155414394978707364029784644875983876), (+1.94559922657908581807608906829705727, +0.375131625506657991128932892413240171), (+1.21796902991020777544014029462993901, +0.904911250100072731139245877020350745), (+1.47988574168750463054564091423393691, +0.628469046655690401047129986127881894), (+1.05674438974482813536390568267025375, +0.121400977725309374356549470181317656E-1), (+1.96822678755187755562046975994002986, +0.509772595172214265966012394326387099), (+1.32556948946788934381209399683800538, +0.451002273067841279506680376727021096E-1), (+1.81477974309936345710525375136752230, +0.521254983689994809301464839171129488), (+1.48885164011137980849158600986212148, +0.703354566545717120921456341986660282), (+1.43492085598236328080728239536359912, +0.604989581472350934523291769059688879), (+1.35442674682007494363898045892273101, +0.754874793024439924231105460435400925), (+1.15092379158109499604926042170177069, +0.699569354933582264790721366858299770), (+1.55321466847235751884092397721161252, +0.950602725997201541799421126502934264), (+1.72364432647537587938500932253556172, +0.370899679757083047776041369097875050), (+1.01632561591961373009919653467436747, +0.956622120593156572803736466601335691), (+1.98494224622813642500574452974770023, +0.965390696802723818549996744954142352), (+1.39663778670639133268903324999247366, +0.425470388144211670585681004801742811), (+1.75623863945856279877455704360390331, +0.589613421234520330160750716831296897), (+1.77681162328934123462089579408993207, +0.509251098194483008564825179480301292), (+1.11063204349518093899394441247995195, +0.527604095718058896801519018282125421), (+1.41926159209084380687436147696090748, +0.936565458898620507989167943545563431), (+1.18255160251075738753715821148399872, +0.487839478977146676493855035173874327), (+1.10315242630884938967097439163614093, +0.618186956347353377005161075264315476), (+1.80160629405288203796402092814088018, +0.139935415292394833106850776387812028), (+1.16196782648063531913213730081558012, +0.243205085674980213053867316121956802), (+1.77180385960161172669684926772081595, +0.643453501149067546585214536030848229), (+1.21017098518536678363306627978816435, +0.956839913406152777549138594586831014), (+1.68663399590013816564766425947911738, +0.156935263080967271346562498014967680), (+1.54136760764555994695525891023289626, +0.362922570234750252337417556637926928), (+1.43756296238167171045067974624395355, +0.998860701620808816781131197803785092), (+1.41135951455171634064565498188946156, +0.935321133506211829050466722564029615)

41

42adat = getFFTI(getFFTF(data))

43adat

44(+1.59685602066907084622352642111213430, +0.110022377465705971412055492282834240), (+1.67353430005051803474834601987544584, +0.662712077982696962857472361473972462E-1), (+1.51331507164694653957176461795236078, +0.160982335040821918208982005135348159), (+1.26112339803655880327020797475908658, +0.945791774500592166828572392098294061E-1), (+1.44533811645428358060270292480523877, +0.473013818464825759945462363160137766), (+1.52943759574582052420994440693375297, +0.714062180709090799075605717988172699), (+1.49195076038946036208362129170871338, +0.519884267873267700769396390617693433E-1), (+1.33627253404073055782842566143435340, +0.180147900736920243116184885662365588), (+1.00546486761064331865974105582392502, +0.525920557640550197188980354173025805), (+1.76315291890913351956152099298510894, +0.606472983312130680320399132852330318), (+1.33136013793738976157694095133286718, +0.163724572864475842851860712346406845E-1), (+1.88241823163127319999408674633824859, +0.674706688482230747321368042671465769), (+1.27042299896021798460532160280202027, +0.155414394978707364029784644875984093), (+1.94559922657908581807608906829705785, +0.375131625506657991128932892413240171), (+1.21796902991020777544014029462993939, +0.904911250100072731139245877020350842), (+1.47988574168750463054564091423393653, +0.628469046655690401047129986127881798), (+1.05674438974482813536390568267025356, +0.121400977725309374356549470181316949E-1), (+1.96822678755187755562046975994002967, +0.509772595172214265966012394326386810), (+1.32556948946788934381209399683800500, +0.451002273067841279506680376727024045E-1), (+1.81477974309936345710525375136752288, +0.521254983689994809301464839171129873), (+1.48885164011137980849158600986212186, +0.703354566545717120921456341986660378), (+1.43492085598236328080728239536359970, +0.604989581472350934523291769059689360), (+1.35442674682007494363898045892273159, +0.754874793024439924231105460435401310), (+1.15092379158109499604926042170177127, +0.699569354933582264790721366858299674), (+1.55321466847235751884092397721161329, +0.950602725997201541799421126502934553), (+1.72364432647537587938500932253556134, +0.370899679757083047776041369097875098), (+1.01632561591961373009919653467436747, +0.956622120593156572803736466601335403), (+1.98494224622813642500574452974769965, +0.965390696802723818549996744954142256), (+1.39663778670639133268903324999247346, +0.425470388144211670585681004801742667), (+1.75623863945856279877455704360390388, +0.589613421234520330160750716831296801), (+1.77681162328934123462089579408993265, +0.509251098194483008564825179480301196), (+1.11063204349518093899394441247995157, +0.527604095718058896801519018282125517), (+1.41926159209084380687436147696090748, +0.936565458898620507989167943545563528), (+1.18255160251075738753715821148399814, +0.487839478977146676493855035173874038), (+1.10315242630884938967097439163614093, +0.618186956347353377005161075264315573), (+1.80160629405288203796402092814087960, +0.139935415292394833106850776387811980), (+1.16196782648063531913213730081558012, +0.243205085674980213053867316121956827), (+1.77180385960161172669684926772081556, +0.643453501149067546585214536030848229), (+1.21017098518536678363306627978816397, +0.956839913406152777549138594586830821), (+1.68663399590013816564766425947911700, +0.156935263080967271346562498014967488), (+1.54136760764555994695525891023289607, +0.362922570234750252337417556637926831), (+1.43756296238167171045067974624395394, +0.998860701620808816781131197803785188), (+1.41135951455171634064565498188946195, +0.935321133506211829050466722564029327)

45reltol = sqrt(epsilon(1._TKC))

46reltol

47+0.138777878078144567552953958511352539E-16

48isClose(data, adat, reltol = reltol)

49T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

50call setAsserted(all(isClose(data, adat, reltol = reltol)))

51

52lenData = getUnifRand(5, 100)

53lenData

54+34

55data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

56data

57+1.38101315, +1.54795933, +1.88088632, +1.17853701, +1.79690075, +1.67812586, +1.41960311, +1.19745815, +1.57558322, +1.05086064, +1.55384874, +1.02093792, +1.77175331, +1.49636769, +1.17884135, +1.86153364, +1.63102651, +1.79470265, +1.29293036, +1.43668687, +1.32037926, +1.10220516, +1.68572164, +1.79536700, +1.09584236, +1.63054776, +1.10964823, +1.77843499, +1.66819406, +1.41241980, +1.09305596, +1.34891701, +1.75584686, +1.47275770

58

59adat = getFFTI(getFFTF(data))

60adat

61+1.38101304, +1.54795921, +1.88088644, +1.17853713, +1.79690063, +1.67812562, +1.41960299, +1.19745815, +1.57558310, +1.05086052, +1.55384886, +1.02093804, +1.77175307, +1.49636757, +1.17884171, +1.86153340, +1.63102627, +1.79470217, +1.29293025, +1.43668664, +1.32037950, +1.10220540, +1.68572140, +1.79536676, +1.09584260, +1.63054764, +1.10964835, +1.77843463, +1.66819358, +1.41241968, +1.09305596, +1.34891701, +1.75584698, +1.47275782

62reltol = sqrt(epsilon(1._TKC))

63reltol

64+0.345266977E-3

65isClose(data, adat, reltol = reltol)

66T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

67call setAsserted(all(isClose(data, adat, reltol = reltol)))

68

69lenData = getUnifRand(5, 100)

70lenData

71+79

72data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

73data

74+1.1444467633553543, +1.1124244141907149, +1.3117010385902936, +1.7569177179711017, +1.0005630636690133, +1.4467965688858393, +1.9302472035364890, +1.6247349186566851, +1.2544437399832402, +1.1701011015231015, +1.1102569831337243, +1.6845996962253023, +1.1659347648282141, +1.6559733656765716, +1.5766788738848407, +1.6173687821808351, +1.8679324009881333, +1.7046499851980381, +1.8162499433397339, +1.3311724441184172, +1.1510426962982094, +1.6104021748756496, +1.4981471313841597, +1.5795464886635000, +1.6596890931978976, +1.1828024380009847, +1.9147681437012642, +1.0419860013774946, +1.9989609265572403, +1.2627394683188518, +1.0926389516284103, +1.8553237096190949, +1.4401989844291310, +1.5051871544420239, +1.9915318119869561, +1.9659069044410660, +1.2153875163757197, +1.8170653333906936, +1.7828057829981687, +1.5326719674411693, +1.9633064280655610, +1.9443926473856692, +1.7386645923938113, +1.5092991895770784, +1.0345572024124610, +1.2646595445199069, +1.0675036473879491, +1.5342575037889208, +1.7676279336491163, +1.4737675635322711, +1.3811603670707622, +1.2818170997856466, +1.2619977496971297, +1.0873675040507904, +1.0761180018849219, +1.0363249863907393, +1.8270541502438584, +1.6061537166480864, +1.7499449674224443, +1.9787478710168815, +1.0237481559618977, +1.6749183078434102, +1.9928098497421698, +1.0654445950190374, +1.5159221240335161, +1.0546014362922933, +1.3107937996897678, +1.4664649733808712, +1.8301377101485141, +1.0542112113846358, +1.5047743354021543, +1.0310895085104499, +1.0544190830080156, +1.6961156608650394, +1.2073445934202176, +1.0787968571321822, +1.6548029790436058, +1.1443268730290472, +1.4262525869526053

75

76adat = getFFTI(getFFTF(data))

77adat

78+1.1444467633553554, +1.1124244141907171, +1.3117010385902939, +1.7569177179711004, +1.0005630636690150, +1.4467965688858389, +1.9302472035364866, +1.6247349186566844, +1.2544437399832413, +1.1701011015231029, +1.1102569831337259, +1.6845996962252971, +1.1659347648282194, +1.6559733656765683, +1.5766788738848434, +1.6173687821808356, +1.8679324009881322, +1.7046499851980388, +1.8162499433397290, +1.3311724441184198, +1.1510426962982141, +1.6104021748756465, +1.4981471313841588, +1.5795464886634982, +1.6596890931978932, +1.1828024380009947, +1.9147681437012518, +1.0419860013775113, +1.9989609265572219, +1.2627394683188549, +1.0926389516284194, +1.8553237096190838, +1.4401989844291341, +1.5051871544420259, +1.9915318119869470, +1.9659069044410586, +1.2153875163757357, +1.8170653333906930, +1.7828057829981634, +1.5326719674411804, +1.9633064280655563, +1.9443926473856614, +1.7386645923938149, +1.5092991895770791, +1.0345572024124734, +1.2646595445199038, +1.0675036473879538, +1.5342575037889137, +1.7676279336491085, +1.4737675635322691, +1.3811603670707631, +1.2818170997856475, +1.2619977496971300, +1.0873675040507949, +1.0761180018849235, +1.0363249863907464, +1.8270541502438491, +1.6061537166480846, +1.7499449674224437, +1.9787478710168727, +1.0237481559619088, +1.6749183078434084, +1.9928098497421618, +1.0654445950190463, +1.5159221240335123, +1.0546014362922984, +1.3107937996897689, +1.4664649733808719, +1.8301377101485070, +1.0542112113846405, +1.5047743354021517, +1.0310895085104508, +1.0544190830080176, +1.6961156608650354, +1.2073445934202183, +1.0787968571321831, +1.6548029790436043, +1.1443268730290481, +1.4262525869526066

79reltol = sqrt(epsilon(1._TKC))

80reltol

81+0.14901161193847656E-7

82isClose(data, adat, reltol = reltol)

83T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

84call setAsserted(all(isClose(data, adat, reltol = reltol)))

85

86lenData = getUnifRand(5, 100)

87lenData

88+23

89data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

90data

91+1.73315798971813170858693014399643330, +1.84876482906816567842448786003231737, +1.39040634962360298173041833352324946, +1.93676115405903325653519691274856731, +1.86835342190220137009588170613867458, +1.24560993354890833210878985963459181, +1.69012946944473949241724565733789711, +1.64095708000884466327809049892679435, +1.36015990030935030286234007494654363, +1.11256671594025559655274806963785735, +1.95864927432465606109910162496631959, +1.36538428133844939028465628527589953, +1.99685788278853311095053853883406008, +1.42201237986748544440863163092469027, +1.29824739067924160008690409563696655, +1.28711531597447589630322349324777754, +1.13449743428875223144784779993037301, +1.17489049678325865963152995982189695, +1.12049055124423561158109232273999581, +1.81753226998857496508403932218544061, +1.52827342923681392969556499183530586, +1.18593998113509392122898357904035475, +1.89925762746791187872997481881138933

92

93adat = getFFTI(getFFTF(data))

94adat

95+1.73315798971813170858693014399643349, +1.84876482906816567842448786003231775, +1.39040634962360298173041833352324984, +1.93676115405903325653519691274856653, +1.86835342190220137009588170613867477, +1.24560993354890833210878985963459239, +1.69012946944473949241724565733789711, +1.64095708000884466327809049892679416, +1.36015990030935030286234007494654440, +1.11256671594025559655274806963785812, +1.95864927432465606109910162496631997, +1.36538428133844939028465628527589780, +1.99685788278853311095053853883405834, +1.42201237986748544440863163092469104, +1.29824739067924160008690409563696675, +1.28711531597447589630322349324777793, +1.13449743428875223144784779993037321, +1.17489049678325865963152995982189675, +1.12049055124423561158109232273999639, +1.81753226998857496508403932218544080, +1.52827342923681392969556499183530509, +1.18593998113509392122898357904035552, +1.89925762746791187872997481881138952

96reltol = sqrt(epsilon(1._TKC))

97reltol

98+0.138777878078144567552953958511352539E-16

99isClose(data, adat, reltol = reltol)

100T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

101call setAsserted(all(isClose(data, adat, reltol = reltol)))

102

103lenData = getUnifRand(5, 100)

104lenData

105+80

106data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

107data

108(+1.51658106, +0.313064575), (+1.25491107, +0.920452416), (+1.25330067, +0.497764707), (+1.16897511, +0.618323207), (+1.39609480, +0.115663171), (+1.17222488, +0.611711442), (+1.81580472, +0.844972253), (+1.59066212, +0.336340845), (+1.84531951, +0.208414793), (+1.65295970, +0.941287279E-1), (+1.26862979, +0.627471566), (+1.03756368, +0.608394504), (+1.02613139, +0.505332708), (+1.29476953, +0.128495038), (+1.31505573, +0.931752503), (+1.29091334, +0.995429218), (+1.93592811, +0.494531393E-1), (+1.82448339, +0.185927153E-1), (+1.80021584, +0.183200240), (+1.56450665, +0.419939280), (+1.79025531, +0.249692976), (+1.52566743, +0.328980923), (+1.79415822, +0.304352045E-1), (+1.95855045, +0.442854643), (+1.26717591, +0.609040201), (+1.51681447, +0.977594435), (+1.19290781, +0.730618060), (+1.75925314, +0.133634269), (+1.64169574, +0.162378669), (+1.58267927, +0.124806404), (+1.22765493, +0.719714165E-1), (+1.27739191, +0.835919380E-2), (+1.71938717, +0.729920626), (+1.55192828, +0.399835587), (+1.96153772, +0.602687478), (+1.74688101, +0.227447867), (+1.70533419, +0.287306666), (+1.76535988, +0.822099149), (+1.85134315, +0.918655813), (+1.06699049, +0.786665320), (+1.43512309, +0.271444738), (+1.40813351, +0.780246377), (+1.62617087, +0.380220413), (+1.92347622, +0.312486291), (+1.22994304, +0.177657247), (+1.71906376, +0.728216290), (+1.74451661, +0.327484727), (+1.88684011, +0.165243447), (+1.85805881, +0.746279240), (+1.26359296, +0.290837467), (+1.85230732, +0.475642323), (+1.53735745, +0.608942807), (+1.59578228, +0.172228098), (+1.19797277, +0.992236137), (+1.83421755, +0.804114699), (+1.76524544, +0.924391985), (+1.86632991, +0.320800662), (+1.63990784, +0.635497212), (+1.80068922, +0.835473478), (+1.65677702, +0.824119687), (+1.56965375, +0.113187134), (+1.46342385, +0.221802115), (+1.18976307, +0.434651971), (+1.74824929, +0.668862402), (+1.31928635, +0.716211557), (+1.67126811, +0.318167508), (+1.43836331, +0.696063042E-2), (+1.05161297, +0.884110391), (+1.19449759, +0.995693266), (+1.71443152, +0.993528247), (+1.92463553, +0.438740671), (+1.58377862, +0.569685817), (+1.15771413, +0.472130358), (+1.12199998, +0.375995457), (+1.45713544, +0.983307779), (+1.34429705, +0.273877084), (+1.19742393, +0.783468664), (+1.17182112, +0.737228692), (+1.98993587, +0.518334568), (+1.45878410, +0.405955255)

109

110adat = getFFTI(getFFTF(data))

111adat

112(+1.51658094, +0.313064486), (+1.25491083, +0.920452535), (+1.25330079, +0.497764677), (+1.16897523, +0.618323267), (+1.39609504, +0.115663104), (+1.17222488, +0.611711442), (+1.81580472, +0.844972253), (+1.59066236, +0.336340845), (+1.84531963, +0.208414704), (+1.65295947, +0.941287801E-1), (+1.26862967, +0.627471447), (+1.03756368, +0.608394563), (+1.02613139, +0.505332708), (+1.29476964, +0.128495142), (+1.31505597, +0.931752384), (+1.29091311, +0.995429218), (+1.93592834, +0.494530909E-1), (+1.82448328, +0.185926445E-1), (+1.80021572, +0.183200210), (+1.56450677, +0.419939280), (+1.79025519, +0.249692962), (+1.52566767, +0.328980893), (+1.79415822, +0.304351337E-1), (+1.95855045, +0.442854702), (+1.26717603, +0.609040201), (+1.51681423, +0.977594495), (+1.19290781, +0.730618000), (+1.75925338, +0.133634374), (+1.64169586, +0.162378743), (+1.58267939, +0.124806456), (+1.22765481, +0.719713196E-1), (+1.27739215, +0.835914630E-2), (+1.71938741, +0.729920626), (+1.55192828, +0.399835646), (+1.96153772, +0.602687299), (+1.74688089, +0.227447942), (+1.70533431, +0.287306637), (+1.76536012, +0.822099209), (+1.85134339, +0.918655992), (+1.06699049, +0.786665201), (+1.43512297, +0.271444619), (+1.40813339, +0.780246496), (+1.62617075, +0.380220383), (+1.92347622, +0.312486380), (+1.22994316, +0.177657157), (+1.71906364, +0.728216350), (+1.74451673, +0.327484637), (+1.88684022, +0.165243462), (+1.85805893, +0.746279299), (+1.26359284, +0.290837526), (+1.85230732, +0.475642264), (+1.53735757, +0.608942866), (+1.59578228, +0.172228098), (+1.19797289, +0.992236257), (+1.83421767, +0.804114759), (+1.76524532, +0.924392045), (+1.86633003, +0.320800602), (+1.63990784, +0.635497332), (+1.80068934, +0.835473478), (+1.65677702, +0.824119747), (+1.56965363, +0.113186978), (+1.46342409, +0.221802071), (+1.18976319, +0.434651852), (+1.74824929, +0.668862462), (+1.31928670, +0.716211617), (+1.67126787, +0.318167537), (+1.43836343, +0.696054706E-2), (+1.05161309, +0.884110451), (+1.19449770, +0.995693386), (+1.71443176, +0.993528366), (+1.92463529, +0.438740492), (+1.58377874, +0.569685936), (+1.15771413, +0.472130358), (+1.12199998, +0.375995576), (+1.45713556, +0.983307779), (+1.34429717, +0.273877054), (+1.19742405, +0.783468604), (+1.17182124, +0.737228751), (+1.98993587, +0.518334568), (+1.45878422, +0.405955136)

113reltol = sqrt(epsilon(1._TKC))

114reltol

115+0.345266977E-3

116isClose(data, adat, reltol = reltol)

117T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

118call setAsserted(all(isClose(data, adat, reltol = reltol)))

119

120lenData = getUnifRand(5, 100)

121lenData

122+37

123data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

124data

125(+1.0533268138218759, +0.87481735633207558), (+1.9488520258230766, +0.86225216664242743), (+1.6267224409872643, +0.31757164399207183), (+1.5122327811939034, +0.65030994793057961), (+1.8630068476503510, +0.82487237573451644), (+1.4467530490123277, +0.26987504069569079), (+1.0602652437258144, +0.85969669846909047), (+1.4455782126024177, +0.70849678668302607E-1), (+1.7582340798217819, +0.32433433529778211), (+1.9717349359977456, +0.66980737065941820), (+1.2888131216543215, +0.52822996359559293), (+1.1292180520058681, +0.93727961272688121), (+1.8680918758058316, +0.27824719225797556), (+1.4643714467644604, +0.55986637353269297), (+1.4051073162790355, +0.85166194945106832), (+1.5098878573256200, +0.41627778447336405), (+1.1268395185952398, +0.58197796531874324), (+1.6830912274387755, +0.18521890499098659), (+1.0475920111996775, +0.71197363134459524), (+1.7589551675508543, +0.48517474952709561), (+1.4493936162534660, +0.70140413834726945), (+1.1573649175864760, +0.61298735307800079), (+1.1722950447469329, +0.30352641956517223), (+1.0816537226190381, +0.40922215583697341), (+1.8027404961703570, +0.43980199644086204), (+1.4296551923591077, +0.16605320152577718), (+1.8516400760334419, +0.47014472668576435), (+1.7333699237660076, +0.76662767085083738), (+1.5430333836958936, +0.76613923451191579), (+1.1396098023860501, +0.56101164382145996), (+1.2823506537471623, +0.68269970528598034), (+1.8695142793874999, +0.17257546750568176), (+1.3000882286659374, +0.82927493727013857), (+1.5725247638245934, +0.88289186185038704), (+1.6208107497509618, +0.32260216887767645), (+1.9953750786887214, +0.49589093306143928), (+1.9335133516762559, +0.82102934504835423)

126

127adat = getFFTI(getFFTF(data))

128adat

129(+1.0533268138218734, +0.87481735633207491), (+1.9488520258230768, +0.86225216664242765), (+1.6267224409872640, +0.31757164399207205), (+1.5122327811939038, +0.65030994793058006), (+1.8630068476503510, +0.82487237573451677), (+1.4467530490123279, +0.26987504069569124), (+1.0602652437258144, +0.85969669846909047), (+1.4455782126024179, +0.70849678668302496E-1), (+1.7582340798217824, +0.32433433529778227), (+1.9717349359977456, +0.66980737065941809), (+1.2888131216543217, +0.52822996359559327), (+1.1292180520058686, +0.93727961272688132), (+1.8680918758058316, +0.27824719225797551), (+1.4643714467644604, +0.55986637353269286), (+1.4051073162790360, +0.85166194945106843), (+1.5098878573256211, +0.41627778447336417), (+1.1268395185952402, +0.58197796531874313), (+1.6830912274387757, +0.18521890499098673), (+1.0475920111996779, +0.71197363134459546), (+1.7589551675508552, +0.48517474952709544), (+1.4493936162534664, +0.70140413834726967), (+1.1573649175864771, +0.61298735307800067), (+1.1722950447469336, +0.30352641956517240), (+1.0816537226190388, +0.40922215583697347), (+1.8027404961703570, +0.43980199644086215), (+1.4296551923591079, +0.16605320152577702), (+1.8516400760334424, +0.47014472668576435), (+1.7333699237660081, +0.76662767085083761), (+1.5430333836958934, +0.76613923451191590), (+1.1396098023860501, +0.56101164382146029), (+1.2823506537471623, +0.68269970528598056), (+1.8695142793875004, +0.17257546750568176), (+1.3000882286659381, +0.82927493727013901), (+1.5725247638245934, +0.88289186185038748), (+1.6208107497509621, +0.32260216887767651), (+1.9953750786887214, +0.49589093306143944), (+1.9335133516762564, +0.82102934504835456)

130reltol = sqrt(epsilon(1._TKC))

131reltol

132+0.14901161193847656E-7

133isClose(data, adat, reltol = reltol)

134T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

135call setAsserted(all(isClose(data, adat, reltol = reltol)))

136

137lenData = getUnifRand(5, 100)

138lenData

139+89

140data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

141data

142(+1.22409925259793803495662947734094012, +0.253215522050957649104101522535771153), (+1.02768852115442235346076764640394142, +0.524631558709817507396318895782665464), (+1.33737465571769119112709952695688261, +0.530971085604839566470781969927915975), (+1.02340845193808275644444731512674474, +0.740917900804513524862047638549249700), (+1.71906075525777243857479340788038075, +0.603073796115977575549683132893742471), (+1.91445129328769921803531959825167480, +0.977889622650084793092424493936346213), (+1.78466846960251794120209338689325430, +0.389037908736764296199073629352633955), (+1.58183547178232996322686294090072226, +0.475563287364136924844152609132989847), (+1.40811865577553963860065509069562480, +0.753488740777698537780219346179034832), (+1.00546782638597605062418737586468691, +0.316939098971756382591450775173621520), (+1.57396322564715071374592515731722821, +0.528069170893893290891582474378614195), (+1.64136543879210615900286280522688396, +0.385052886118590275667346119973913259), (+1.08178631668696588374734468906209680, +0.992833218007410480433814118307971406), (+1.53647386589955733599755297901695079, +0.205969612609646296297095913724923035), (+1.89575966168028788808709012970246227, +0.182981437468403246115978569565581069), (+1.20528584890979508967811473268194753, +0.522312314074377931479799311666931280), (+1.22016573213815906808717622529909243, +0.877743775080696359109130592664241406), (+1.66621723230925352711224321073801561, +0.275024976646318712257117397924056863), (+1.65584063993213258202353920364169402, +0.699354121390246015355223596287894920), (+1.81523275831904573269279085391766697, +0.228273936417887104395596178440114570), (+1.60041249557956589846345936322955234, +0.570442098813033006677303177357953556), (+1.67804011784792927176221130952498891, +0.628214042005674397176200009241123322), (+1.03481290160508474609993894477284634, +0.305618669102229564249189976893687685), (+1.34637535315059899800307437840104130, +0.948868451940762768625094671130255332), (+1.62768209506613098787643914490959628, +0.912810429223581462779114430860221481), (+1.76931414315438964945691090992954619, +0.748562438012705542844105635724234176E-1), (+1.86310764397870611492508172667027122, +0.443036758840472460072166243777477132), (+1.46660232489679541135178640827046858, +0.967152780353401837584776676928226141), (+1.51960587684728299546667396284020807, +0.171906768689157803783757293349940589), (+1.44537139885733588264667229811591946, +0.365743013965543672067833774140911780), (+1.08481109170279062380530069249153884, +0.676437419291368122160383232166761017), (+1.63884253692919235867940966432551841, +0.852417522144865281824134979363782257), (+1.17544084769865431580956122868683781, +0.256159509233229801668768652314026230), (+1.24340520005854425101957241526554041, +0.886203088987934662596823822147139834), (+1.74961803531340476163892263751001601, +0.612311873707106618392899786029222958), (+1.51759047039963441000597487201346726, +0.936778479784965549353112614726207497E-2), (+1.82257469998141390180509426319492087, +0.939990478554846219217913092576687135), (+1.60490833999732769203825221530748155, +0.563546737353036892999261177624483139), (+1.69101713763746555465909102886939225, +0.966237282520603782854447901633195088), (+1.89059342827212993117676647460063481, +0.403143669258339030385517753530218090), (+1.50314606608870447673103173497510407, +0.368534341410637133330003327028131943), (+1.36589149220747391122711072174276876, +0.868521784417703477153348406092772886), (+1.18784005799880478558115941091841017, +0.983899988376239337683097334966543037), (+1.48346022533634975446496133731938952, +0.796453071406151388704060137431584272), (+1.29164988597584030431085839323235871, +0.135054038466033872477223246775859727), (+1.48427672360227714562859990367541892, +0.664746775197503201713844957687248621), (+1.80582399235705060746779269289072846, +0.822545258995391439000671654152020901E-1), (+1.55519137363389529124535520551077923, +0.638310907642224891104856530003614107E-1), (+1.11544612507756437474628632800003875, +0.567626502157919539172620819873546685), (+1.61950216058932184204104577601896296, +0.679784395202606214283039153161921605), (+1.30437843522175113955727877070021309, +0.789691486462191794378610540959440672), (+1.88921377067944964652364349123215078, +0.933268130193200416949215107823494522), (+1.64013649561855211979813617720841088, +0.786664826459546007830368734931438594), (+1.52819227307566650654363599663469647, +0.688130509778391204681290917312579776), (+1.32400834290646320895101554976408037, +0.784610638445487803116600293084942380), (+1.79877214230190005527028149263229766, +0.737385300864435700175676097065506371), (+1.61133342427326712069274855193866649, +0.274271084556093226860602365496183294), (+1.79945286236745471390860156492537539, +0.285590894399110915479705381403405070), (+1.61874456768316750158615791191653652, +0.468595242232764562012082991798005638), (+1.20290237038978376789849601057729301, +0.353963124943328879369019204543201919), (+1.01569609329468777066133897957984668, +0.747784919273509363578022740837367964), (+1.46502880427703786847985714695695178, +0.109525205668815540882198233646502092), (+1.14923667061096667906806779818525539, +0.933480279989563142325943274540843804), (+1.78642350628702257713338822496454658, +0.188350029360832312200169393915083928), (+1.27474978359842299686924370209228546, +0.816064878028345054212581818926850163), (+1.73501329948409372233973267921767973, +0.821978095369812658824785772799800106), (+1.86772070309294786109926535568244869, +0.480828379620244287856291872756827322), (+1.07121726584632221533311760090580781, +0.407400501334787046998513232308870291), (+1.45247871131819615978091605258047653, +0.875454629817984934372686188192537097), (+1.08904809565477705478696970186874603, +0.541696894162066144716731142781266034), (+1.71341878644072857887401490582166433, +0.418524890717453227492915038203195045), (+1.78306796758547003079107781454826035, +0.822249113608560709595012975844079855), (+1.27855288116941763910160802300530238, +0.281686573420466540611054713277208269E-1), (+1.09304563401316175342159038178566044, +0.212079298902987778198102363042035982), (+1.00355377028374374391448951496594624, +0.535668411975678920929997586542598747), (+1.17566058916910171887659736290935540, +0.836987627616335633453649062716757945), (+1.88121220814622735591279210054052611, +0.750699641796259210426220199440901712), (+1.47127200222174677896056034598344061, +0.343509942711156414586373163087034052), (+1.96099203035160948686290595194386571, +0.273543183411269343298148193919382673), (+1.96338885888888434379128796673505849, +0.613396325972159600153790729618441351E-1), (+1.88335615819956666912253872746962328, +0.377656784743849844604691428157437987E-1), (+1.70171286915510769797101937547626002, +0.682040916877319141240932899959392394), (+1.13842906949079193328818739724434219, +0.820672696287878756592417588239310383), (+1.93928773134075226847731967032609832, +0.873590162981409637933278052992684046), (+1.58113700399435612093400568133736710, +0.699748385087376517254941538754497796), (+1.24508909588112405043886879262609930, +0.549363489005275525004049594402339107), (+1.99584634613632486025986065713094245, +0.447752784414135051472055762086887281), (+1.40553011576979403689777924851708352, +0.838908210556330883328767884757279301E-1), (+1.62647960107213351431910147434975278, +0.513566007445681424400453058064973677)

143

144adat = getFFTI(getFFTF(data))

145adat

146(+1.22409925259793803495662947734092818, +0.253215522050957649104101522535766146), (+1.02768852115442235346076764640394238, +0.524631558709817507396318895782665752), (+1.33737465571769119112709952695688415, +0.530971085604839566470781969927916263), (+1.02340845193808275644444731512674609, +0.740917900804513524862047638549249796), (+1.71906075525777243857479340788038229, +0.603073796115977575549683132893742953), (+1.91445129328769921803531959825167422, +0.977889622650084793092424493936346117), (+1.78466846960251794120209338689325449, +0.389037908736764296199073629352633907), (+1.58183547178232996322686294090072226, +0.475563287364136924844152609132989703), (+1.40811865577553963860065509069562557, +0.753488740777698537780219346179034736), (+1.00546782638597605062418737586468691, +0.316939098971756382591450775173621906), (+1.57396322564715071374592515731722879, +0.528069170893893290891582474378614292), (+1.64136543879210615900286280522688492, +0.385052886118590275667346119973913307), (+1.08178631668696588374734468906209738, +0.992833218007410480433814118307971984), (+1.53647386589955733599755297901695195, +0.205969612609646296297095913724922939), (+1.89575966168028788808709012970246342, +0.182981437468403246115978569565581503), (+1.20528584890979508967811473268194888, +0.522312314074377931479799311666931569), (+1.22016573213815906808717622529909205, +0.877743775080696359109130592664241598), (+1.66621723230925352711224321073801600, +0.275024976646318712257117397924057007), (+1.65584063993213258202353920364169460, +0.699354121390246015355223596287895016), (+1.81523275831904573269279085391766677, +0.228273936417887104395596178440114618), (+1.60041249557956589846345936322955311, +0.570442098813033006677303177357953748), (+1.67804011784792927176221130952498852, +0.628214042005674397176200009241123129), (+1.03481290160508474609993894477284634, +0.305618669102229564249189976893687541), (+1.34637535315059899800307437840104092, +0.948868451940762768625094671130255140), (+1.62768209506613098787643914490959744, +0.912810429223581462779114430860221481), (+1.76931414315438964945691090992954773, +0.748562438012705542844105635724236944E-1), (+1.86310764397870611492508172667027160, +0.443036758840472460072166243777477373), (+1.46660232489679541135178640827046820, +0.967152780353401837584776676928226334), (+1.51960587684728299546667396284020768, +0.171906768689157803783757293349940348), (+1.44537139885733588264667229811591927, +0.365743013965543672067833774140911587), (+1.08481109170279062380530069249153865, +0.676437419291368122160383232166761402), (+1.63884253692919235867940966432551899, +0.852417522144865281824134979363782738), (+1.17544084769865431580956122868683685, +0.256159509233229801668768652314026615), (+1.24340520005854425101957241526554021, +0.886203088987934662596823822147139834), (+1.74961803531340476163892263751001563, +0.612311873707106618392899786029222765), (+1.51759047039963441000597487201346707, +0.936778479784965549353112614726234430E-2), (+1.82257469998141390180509426319492010, +0.939990478554846219217913092576686846), (+1.60490833999732769203825221530748117, +0.563546737353036892999261177624483139), (+1.69101713763746555465909102886939206, +0.966237282520603782854447901633195281), (+1.89059342827212993117676647460063501, +0.403143669258339030385517753530217849), (+1.50314606608870447673103173497510272, +0.368534341410637133330003327028131991), (+1.36589149220747391122711072174276819, +0.868521784417703477153348406092772790), (+1.18784005799880478558115941091840883, +0.983899988376239337683097334966542844), (+1.48346022533634975446496133731938913, +0.796453071406151388704060137431583887), (+1.29164988597584030431085839323235678, +0.135054038466033872477223246775859463), (+1.48427672360227714562859990367541757, +0.664746775197503201713844957687248236), (+1.80582399235705060746779269289072769, +0.822545258995391439000671654152020420E-1), (+1.55519137363389529124535520551077807, +0.638310907642224891104856530003614468E-1), (+1.11544612507756437474628632800003817, +0.567626502157919539172620819873546685), (+1.61950216058932184204104577601896162, +0.679784395202606214283039153161921412), (+1.30437843522175113955727877070021328, +0.789691486462191794378610540959440384), (+1.88921377067944964652364349123215078, +0.933268130193200416949215107823494522), (+1.64013649561855211979813617720841030, +0.786664826459546007830368734931438498), (+1.52819227307566650654363599663469589, +0.688130509778391204681290917312579487), (+1.32400834290646320895101554976408017, +0.784610638445487803116600293084942669), (+1.79877214230190005527028149263229728, +0.737385300864435700175676097065506371), (+1.61133342427326712069274855193866649, +0.274271084556093226860602365496183342), (+1.79945286236745471390860156492537501, +0.285590894399110915479705381403404829), (+1.61874456768316750158615791191653710, +0.468595242232764562012082991798005879), (+1.20290237038978376789849601057729281, +0.353963124943328879369019204543202064), (+1.01569609329468777066133897957984668, +0.747784919273509363578022740837368061), (+1.46502880427703786847985714695695158, +0.109525205668815540882198233646502333), (+1.14923667061096667906806779818525500, +0.933480279989563142325943274540844093), (+1.78642350628702257713338822496454697, +0.188350029360832312200169393915083976), (+1.27474978359842299686924370209228662, +0.816064878028345054212581818926850452), (+1.73501329948409372233973267921768089, +0.821978095369812658824785772799800202), (+1.86772070309294786109926535568244792, +0.480828379620244287856291872756827563), (+1.07121726584632221533311760090580762, +0.407400501334787046998513232308870339), (+1.45247871131819615978091605258047634, +0.875454629817984934372686188192536905), (+1.08904809565477705478696970186874661, +0.541696894162066144716731142781266227), (+1.71341878644072857887401490582166433, +0.418524890717453227492915038203194900), (+1.78306796758547003079107781454826112, +0.822249113608560709595012975844080048), (+1.27855288116941763910160802300530277, +0.281686573420466540611054713277210315E-1), (+1.09304563401316175342159038178565986, +0.212079298902987778198102363042035813), (+1.00355377028374374391448951496594759, +0.535668411975678920929997586542598747), (+1.17566058916910171887659736290935656, +0.836987627616335633453649062716758330), (+1.88121220814622735591279210054052650, +0.750699641796259210426220199440901905), (+1.47127200222174677896056034598344119, +0.343509942711156414586373163087034534), (+1.96099203035160948686290595194386706, +0.273543183411269343298148193919382722), (+1.96338885888888434379128796673505926, +0.613396325972159600153790729618441351E-1), (+1.88335615819956666912253872746962328, +0.377656784743849844604691428157439793E-1), (+1.70171286915510769797101937547626079, +0.682040916877319141240932899959392298), (+1.13842906949079193328818739724434257, +0.820672696287878756592417588239310383), (+1.93928773134075226847731967032609851, +0.873590162981409637933278052992684046), (+1.58113700399435612093400568133736671, +0.699748385087376517254941538754497603), (+1.24508909588112405043886879262610104, +0.549363489005275525004049594402339203), (+1.99584634613632486025986065713094419, +0.447752784414135051472055762086887425), (+1.40553011576979403689777924851708507, +0.838908210556330883328767884757280986E-1), (+1.62647960107213351431910147434975375, +0.513566007445681424400453058064973677)

147reltol = sqrt(epsilon(1._TKC))

148reltol

149+0.138777878078144567552953958511352539E-16

150isClose(data, adat, reltol = reltol)

151T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

152call setAsserted(all(isClose(data, adat, reltol = reltol)))

153

154lenData = getUnifRand(5, 100)

155lenData

156+62

157data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

158data

159+1.69982076, +1.75438845, +1.70068014, +1.37341237, +1.38065696, +1.72363722, +1.81102443, +1.18701303, +1.94101369, +1.45999432, +1.88847506, +1.58569598, +1.16001368, +1.48230839, +1.88646197, +1.43139493, +1.30455434, +1.26331425, +1.54401445, +1.65709949, +1.84281564, +1.96609259, +1.19484973, +1.35556948, +1.00876892, +1.17221832, +1.28575420, +1.76948571, +1.20947194, +1.50011694, +1.59905362, +1.00319886, +1.13532472, +1.45789123, +1.81346750, +1.64758778, +1.08894348, +1.69152689, +1.49895799, +1.08034015, +1.99136090, +1.26020205, +1.80942357, +1.62115765, +1.15623927, +1.05055165, +1.62975049, +1.02227569, +1.23937440, +1.18398511, +1.79848397, +1.24428391, +1.71516347, +1.53688693, +1.39763880, +1.74787521, +1.19242740, +1.30123281, +1.16300607, +1.59805560, +1.33053851, +1.82529438

160

161adat = getFFTI(getFFTF(data))

162adat

163+1.69982147, +1.75438893, +1.70068038, +1.37341285, +1.38065708, +1.72363698, +1.81102443, +1.18701398, +1.94101286, +1.45999408, +1.88847423, +1.58569586, +1.16001523, +1.48230815, +1.88646019, +1.43139493, +1.30455518, +1.26331484, +1.54401481, +1.65709972, +1.84281337, +1.96608973, +1.19485104, +1.35557103, +1.00877059, +1.17221916, +1.28575277, +1.76948333, +1.20947230, +1.50011325, +1.59905171, +1.00320590, +1.13533378, +1.45789218, +1.81345916, +1.64758480, +1.08894789, +1.69152474, +1.49895644, +1.08034158, +1.99136007, +1.26020288, +1.80942154, +1.62115550, +1.15624273, +1.05055356, +1.62974799, +1.02227592, +1.23937654, +1.18398523, +1.79848230, +1.24428380, +1.71516359, +1.53688669, +1.39763832, +1.74787426, +1.19242764, +1.30123365, +1.16300619, +1.59805560, +1.33053875, +1.82529449

164reltol = sqrt(epsilon(1._TKC))

165reltol

166+0.345266977E-3

167isClose(data, adat, reltol = reltol)

168T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

169call setAsserted(all(isClose(data, adat, reltol = reltol)))

170

171lenData = getUnifRand(5, 100)

172lenData

173+99

174data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

175data

176+1.9271915134489053, +1.8522340968352859, +1.3147975010760269, +1.0582068502229371, +1.3689453050489941, +1.2586323339448846, +1.6170790921105349, +1.6425685614746732, +1.3785510511849683, +1.8059473610989476, +1.4495923391080758, +1.6230036148091433, +1.8831231926776799, +1.6239632242636168, +1.8586445664598428, +1.6935091366767678, +1.6493586004793090, +1.9222026648938786, +1.9609596359078858, +1.8955746373259399, +1.6376738828489050, +1.0575670015556065, +1.1297934282187581, +1.3979398458971195, +1.7774147778811964, +1.0013813894622343, +1.2175120164418261, +1.1118215364960837, +1.9285005764188912, +1.7385656166459924, +1.8727184904467657, +1.7357482578091605, +1.4201909617769037, +1.5899559696439329, +1.4755178503391475, +1.1621900992748770, +1.6532892419268657, +1.2193400042562081, +1.4246996230777120, +1.5166111875688855, +1.7533420550493597, +1.9148540898855928, +1.7846214037264274, +1.5265116913389090, +1.1381271692178498, +1.2922820297007407, +1.7443313923388537, +1.7104240129683750, +1.2468104686010524, +1.9057313301922065, +1.6441631702244979, +1.9026478962350342, +1.8481657370994444, +1.5571012526727592, +1.9985840384732900, +1.3295454383315981, +1.4408745948144901, +1.4281735341372106, +1.0099816631257257, +1.2456243101785971, +1.3253763512726793, +1.0462145980553119, +1.1794648656398354, +1.5029394348404397, +1.3038231340672186, +1.4952880308091865, +1.7626079243102897, +1.2085749319132542, +1.7958058271297506, +1.9429640005369744, +1.6235814675040783, +1.7503532541360021, +1.6164133469513162, +1.1745819414913485, +1.1223775690495859, +1.5948141033552530, +1.5977309635944374, +1.4605704165122471, +1.5500487355552890, +1.0322537554554923, +1.2324269321746255, +1.4113855013302319, +1.5258825266632994, +1.8328524477864154, +1.2477741251471923, +1.9851356670665639, +1.0326715793975978, +1.9447060560812588, +1.5228405260862830, +1.8386302285712981, +1.5013995761153356, +1.6648725307963432, +1.4204938025511975, +1.0130479373871404, +1.2519149171736093, +1.5215757243353343, +1.3314410575482079, +1.9793647443174653, +1.5480263000959458

177

178adat = getFFTI(getFFTF(data))

179adat

180+1.9271915134489064, +1.8522340968352871, +1.3147975010760273, +1.0582068502229383, +1.3689453050489950, +1.2586323339448851, +1.6170790921105356, +1.6425685614746741, +1.3785510511849690, +1.8059473610989478, +1.4495923391080763, +1.6230036148091438, +1.8831231926776808, +1.6239632242636179, +1.8586445664598426, +1.6935091366767683, +1.6493586004793095, +1.9222026648938793, +1.9609596359078865, +1.8955746373259408, +1.6376738828489055, +1.0575670015556076, +1.1297934282187587, +1.3979398458971199, +1.7774147778811968, +1.0013813894622348, +1.2175120164418263, +1.1118215364960846, +1.9285005764188914, +1.7385656166459924, +1.8727184904467662, +1.7357482578091612, +1.4201909617769037, +1.5899559696439332, +1.4755178503391482, +1.1621900992748770, +1.6532892419268661, +1.2193400042562095, +1.4246996230777127, +1.5166111875688866, +1.7533420550493604, +1.9148540898855928, +1.7846214037264276, +1.5265116913389092, +1.1381271692178503, +1.2922820297007407, +1.7443313923388537, +1.7104240129683745, +1.2468104686010530, +1.9057313301922059, +1.6441631702244976, +1.9026478962350339, +1.8481657370994440, +1.5571012526727586, +1.9985840384732902, +1.3295454383315977, +1.4408745948144899, +1.4281735341372108, +1.0099816631257250, +1.2456243101785966, +1.3253763512726791, +1.0462145980553117, +1.1794648656398352, +1.5029394348404406, +1.3038231340672197, +1.4952880308091865, +1.7626079243102910, +1.2085749319132548, +1.7958058271297508, +1.9429640005369746, +1.6235814675040785, +1.7503532541360021, +1.6164133469513169, +1.1745819414913490, +1.1223775690495859, +1.5948141033552532, +1.5977309635944377, +1.4605704165122468, +1.5500487355552892, +1.0322537554554927, +1.2324269321746257, +1.4113855013302321, +1.5258825266633003, +1.8328524477864163, +1.2477741251471932, +1.9851356670665647, +1.0326715793975982, +1.9447060560812595, +1.5228405260862834, +1.8386302285712985, +1.5013995761153356, +1.6648725307963435, +1.4204938025511979, +1.0130479373871413, +1.2519149171736101, +1.5215757243353336, +1.3314410575482085, +1.9793647443174658, +1.5480263000959462

181reltol = sqrt(epsilon(1._TKC))

182reltol

183+0.14901161193847656E-7

184isClose(data, adat, reltol = reltol)

185T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

186call setAsserted(all(isClose(data, adat, reltol = reltol)))

187

188lenData = getUnifRand(5, 100)

189lenData

190+77

191data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

192data

193+1.74462325957091508880895892958232243, +1.80823449100959191428045315800008997, +1.74404423284051299407559075160845035, +1.00316474652891828521528723781824596, +1.20534320632288158849840793152874098, +1.57456442243608987708587631553300510, +1.35817549079973762799294163035804752, +1.92452786602644747076514593394636385, +1.36124910587077231445387705359432846, +1.28190916171806816699884444176526638, +1.13099915480500053028772236626822511, +1.21299932313581843015762492020498745, +1.48303407858000934803605922996525435, +1.62856318316515408580440771012156198, +1.55855072485441819968195577433405341, +1.78792720371424075891478992843709121, +1.13169888712104862792119345352079626, +1.22341054280483059097037270970418494, +1.02935969793622019273484525982556624, +1.01500651552459830321177609272291789, +1.71563451412678585403026558652412974, +1.79590866440182510614746315698604430, +1.57681009608882946910081610336420221, +1.91539017039190287053679327394929739, +1.18410103689908339335651443506866826, +1.20489241550657909859736911715661964, +1.68954468642749238095729843554865904, +1.74757204115997971020966396105699419, +1.01866109802934073475078463030592560, +1.74043423981106358845443493604418965, +1.52820948594118480082007119100674510, +1.52314899750161800327828779562170511, +1.77360709170043593091116810071367430, +1.72672375890002539881702036704853008, +1.72653841444136516671300219988363856, +1.05427488207734644274371503453264713, +1.22328597388238209897785107484984187, +1.36773424110897296328930742942790267, +1.31897686390598456257075289941292330, +1.19509600100569329115713014450229345, +1.44871560963876615784401631924219580, +1.81498907616336932261861694814814952, +1.21833590839997042537617969633397555, +1.54914290817872651667212084274835091, +1.03545805268095313605610683607104802, +1.95336874743500503509309405382066481, +1.73456812185971334215758197775942185, +1.74131213214572699091705442760757446, +1.14835125540796874100687975938756232, +1.48902302715161515565432960427819725, +1.35234653035785728863661189743056966, +1.63865903023263619519038817760096448, +1.38414127134004183492471962991015018, +1.83723480421801395778192949021341460, +1.83125797862415237108990435356761372, +1.87814989960971154215928006916184114, +1.93952902895036157271483795978746687, +1.03755326889017539031670742214768644, +1.82780583990845197879800298903306918, +1.77160780779757302030249216289595059, +1.10534236038720252878364422126870937, +1.65777792135349205681603516276537749, +1.44572961544539163657751300234570514, +1.83684690298807830584348663483433523, +1.89687562055625655910809753679851111, +1.91748049058548135187597867064141930, +1.39474734514156510938083209254219868, +1.94737034763033383048895482601690295, +1.00208076688699935395421004006213112, +1.69121280178904063860886128161259990, +1.74035817107405934378372337157996415, +1.58949810377481252413586336336550274, +1.74719254442985285911758652854838112, +1.41786296495679014149674810635185702, +1.09552985183300479252644490763624221, +1.78809331065995118261021804573525202, +1.72514680015559528811039168006389472

194

195adat = getFFTI(getFFTF(data))

196adat

197+1.74462325957091508880895892958232300, +1.80823449100959191428045315800009055, +1.74404423284051299407559075160845074, +1.00316474652891828521528723781824673, +1.20534320632288158849840793152874136, +1.57456442243608987708587631553300606, +1.35817549079973762799294163035804771, +1.92452786602644747076514593394636424, +1.36124910587077231445387705359432885, +1.28190916171806816699884444176526618, +1.13099915480500053028772236626822491, +1.21299932313581843015762492020498803, +1.48303407858000934803605922996525416, +1.62856318316515408580440771012156237, +1.55855072485441819968195577433405418, +1.78792720371424075891478992843709217, +1.13169888712104862792119345352079665, +1.22341054280483059097037270970418571, +1.02935969793622019273484525982556644, +1.01500651552459830321177609272291847, +1.71563451412678585403026558652412993, +1.79590866440182510614746315698604449, +1.57681009608882946910081610336420221, +1.91539017039190287053679327394929797, +1.18410103689908339335651443506866788, +1.20489241550657909859736911715661964, +1.68954468642749238095729843554865885, +1.74757204115997971020966396105699438, +1.01866109802934073475078463030592598, +1.74043423981106358845443493604419023, +1.52820948594118480082007119100674587, +1.52314899750161800327828779562170588, +1.77360709170043593091116810071367449, +1.72672375890002539881702036704853027, +1.72653841444136516671300219988363875, +1.05427488207734644274371503453264675, +1.22328597388238209897785107484984187, +1.36773424110897296328930742942790286, +1.31897686390598456257075289941292234, +1.19509600100569329115713014450229326, +1.44871560963876615784401631924219561, +1.81498907616336932261861694814814971, +1.21833590839997042537617969633397517, +1.54914290817872651667212084274835110, +1.03545805268095313605610683607104782, +1.95336874743500503509309405382066461, +1.73456812185971334215758197775942223, +1.74131213214572699091705442760757446, +1.14835125540796874100687975938756193, +1.48902302715161515565432960427819802, +1.35234653035785728863661189743057023, +1.63865903023263619519038817760096545, +1.38414127134004183492471962991015056, +1.83723480421801395778192949021341498, +1.83125797862415237108990435356761411, +1.87814989960971154215928006916184133, +1.93952902895036157271483795978746706, +1.03755326889017539031670742214768644, +1.82780583990845197879800298903306937, +1.77160780779757302030249216289595078, +1.10534236038720252878364422126870918, +1.65777792135349205681603516276537749, +1.44572961544539163657751300234570494, +1.83684690298807830584348663483433600, +1.89687562055625655910809753679851188, +1.91748049058548135187597867064142026, +1.39474734514156510938083209254219906, +1.94737034763033383048895482601690391, +1.00208076688699935395421004006213131, +1.69121280178904063860886128161260009, +1.74035817107405934378372337157996453, +1.58949810377481252413586336336550313, +1.74719254442985285911758652854838112, +1.41786296495679014149674810635185702, +1.09552985183300479252644490763624260, +1.78809331065995118261021804573525222, +1.72514680015559528811039168006389510

198reltol = sqrt(epsilon(1._TKC))

199reltol

200+0.138777878078144567552953958511352539E-16

201isClose(data, adat, reltol = reltol)

202T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

203call setAsserted(all(isClose(data, adat, reltol = reltol)))

204

205lenData = getUnifRand(5, 100)

206lenData

207+10

208data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

209data

210(+1.54442918, +0.449134111E-1), (+1.12823701, +0.793797374E-1), (+1.51562858, +0.581005871), (+1.09368324, +0.182821155), (+1.47907639, +0.315584481), (+1.66100669, +0.919118643), (+1.36614025, +0.888471842), (+1.16434193, +0.930750966), (+1.79574776, +0.492145836), (+1.70809674, +0.282546878E-1)

211

212adat = getFFTI(getFFTF(data))

213adat

214(+1.54442894, +0.449133776E-1), (+1.12823701, +0.793798342E-1), (+1.51562870, +0.581005931), (+1.09368336, +0.182821184), (+1.47907639, +0.315584600), (+1.66100657, +0.919118583), (+1.36614025, +0.888471901), (+1.16434205, +0.930751145), (+1.79574800, +0.492145866), (+1.70809674, +0.282547660E-1)

215reltol = sqrt(epsilon(1._TKC))

216reltol

217+0.345266977E-3

218isClose(data, adat, reltol = reltol)

219T, T, T, T, T, T, T, T, T, T

220call setAsserted(all(isClose(data, adat, reltol = reltol)))

221

222lenData = getUnifRand(5, 100)

223lenData

224+64

225data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

226data

227(+1.8613232726840354, +0.36958692688378791), (+1.0012985021650498, +0.19017561464709121E-1), (+1.2569765030622664, +0.48323210365836977E-1), (+1.5608773780944092, +0.24298033238990269E-1), (+1.6886395451035385, +0.92767901340334091), (+1.3453264241451612, +0.70099301431806549), (+1.0130596425465273, +0.63059549804251946), (+1.2229203931815968, +0.59355684961400523), (+1.7580308992102283, +0.82913721093451365), (+1.6491615129943791, +0.30580826716163356E-1), (+1.4148578887670094, +0.43240280670601361), (+1.0225115513427039, +0.54775416283360256), (+1.1071399205858055, +0.64815174710531620), (+1.9455326504447810, +0.93259618984015447), (+1.7586402856373353, +0.13545853632105331), (+1.5784278312310143, +0.94537905364892216), (+1.5671047654287555, +0.74978216843385814), (+1.7671043639104038, +0.74791762019617958), (+1.1124394512988536, +0.17716160466037090), (+1.7989384800284891, +0.78824965855402140), (+1.1723664436767449, +0.36829993847438913), (+1.2103708074936419, +0.91996811917586796E-1), (+1.5084554575005464, +0.70510286670943501), (+1.1420369982389431, +0.59010030270751601), (+1.6532075946953284, +0.21381988219040204), (+1.9761790416080842, +0.38294467528338960), (+1.8835908294729340, +0.79820899567336023), (+1.9806683026851581, +0.78597185733414598), (+1.5417588688576309, +0.92142480800604820), (+1.8673527487896140, +0.35656119222103611), (+1.8724830445621343, +0.42131487959420399), (+1.7493007305353625, +0.37802964098360436), (+1.7206866896871524, +0.75597568202690302), (+1.1428118330040498, +0.92709461979505037), (+1.6411226058574666, +0.23189937356933410), (+1.7167199829449657, +0.98452677897094998E-1), (+1.3128647635981903, +0.36117704196687561), (+1.0936864948769869, +0.82337876240862895), (+1.4143895175845580, +0.52130609922813964), (+1.4500657262277654, +0.55263614420161611), (+1.1536221229678945, +0.97161511122360866), (+1.2940978807501011, +0.78746514399482237), (+1.3446818662520912, +0.13768498458312961), (+1.0585140728532503, +0.18216156963122465), (+1.7447922336870061, +0.22479808177271099), (+1.4342820302200854, +0.34109463012028429), (+1.2595035382259960, +0.13814844662208670), (+1.0085775575362388, +0.13879284998023267E-1), (+1.9150378309675165, +0.48217799647369752), (+1.7898983874254994, +0.81262954242705354E-1), (+1.6229783241941327, +0.84089928864712993), (+1.3771466056058872, +0.57060962585407793), (+1.3073943525421929, +0.68606096426249197), (+1.7078629084760826, +0.85127292075803951), (+1.8928594773482810, +0.47304561458802452), (+1.2157012094480608, +0.78741084640631898E-1), (+1.7534478200306718, +0.84189343792144489E-1), (+1.1483919930660598, +0.75744201534972433), (+1.1239823211051374, +0.99671638068664459), (+1.3749466998488322, +0.49716751957842753E-1), (+1.6494923964165045, +0.85435826293661521), (+1.9351992134577083, +0.25792071678623696), (+1.2047145979348839, +0.93661826259017633), (+1.7628660912867959, +0.35941446818265488)

228

229adat = getFFTI(getFFTF(data))

230adat

231(+1.8613232726840354, +0.36958692688378791), (+1.0012985021650500, +0.19017561464708954E-1), (+1.2569765030622664, +0.48323210365836866E-1), (+1.5608773780944092, +0.24298033238990199E-1), (+1.6886395451035383, +0.92767901340334091), (+1.3453264241451612, +0.70099301431806527), (+1.0130596425465277, +0.63059549804251958), (+1.2229203931815966, +0.59355684961400534), (+1.7580308992102283, +0.82913721093451354), (+1.6491615129943789, +0.30580826716163356E-1), (+1.4148578887670098, +0.43240280670601366), (+1.0225115513427041, +0.54775416283360245), (+1.1071399205858052, +0.64815174710531642), (+1.9455326504447807, +0.93259618984015435), (+1.7586402856373355, +0.13545853632105315), (+1.5784278312310145, +0.94537905364892194), (+1.5671047654287555, +0.74978216843385792), (+1.7671043639104038, +0.74791762019617947), (+1.1124394512988536, +0.17716160466037095), (+1.7989384800284891, +0.78824965855402129), (+1.1723664436767445, +0.36829993847438924), (+1.2103708074936419, +0.91996811917586685E-1), (+1.5084554575005469, +0.70510286670943501), (+1.1420369982389429, +0.59010030270751601), (+1.6532075946953282, +0.21381988219040199), (+1.9761790416080842, +0.38294467528338949), (+1.8835908294729344, +0.79820899567336012), (+1.9806683026851584, +0.78597185733414621), (+1.5417588688576309, +0.92142480800604831), (+1.8673527487896138, +0.35656119222103599), (+1.8724830445621341, +0.42131487959420383), (+1.7493007305353625, +0.37802964098360425), (+1.7206866896871524, +0.75597568202690302), (+1.1428118330040500, +0.92709461979505026), (+1.6411226058574666, +0.23189937356933404), (+1.7167199829449657, +0.98452677897094956E-1), (+1.3128647635981900, +0.36117704196687572), (+1.0936864948769869, +0.82337876240862895), (+1.4143895175845582, +0.52130609922813964), (+1.4500657262277652, +0.55263614420161611), (+1.1536221229678945, +0.97161511122360855), (+1.2940978807501011, +0.78746514399482215), (+1.3446818662520914, +0.13768498458312944), (+1.0585140728532503, +0.18216156963122448), (+1.7447922336870059, +0.22479808177271116), (+1.4342820302200852, +0.34109463012028429), (+1.2595035382259960, +0.13814844662208686), (+1.0085775575362390, +0.13879284998023211E-1), (+1.9150378309675165, +0.48217799647369736), (+1.7898983874254997, +0.81262954242705354E-1), (+1.6229783241941327, +0.84089928864712982), (+1.3771466056058870, +0.57060962585407782), (+1.3073943525421927, +0.68606096426249219), (+1.7078629084760824, +0.85127292075803940), (+1.8928594773482814, +0.47304561458802441), (+1.2157012094480606, +0.78741084640631787E-1), (+1.7534478200306718, +0.84189343792144447E-1), (+1.1483919930660598, +0.75744201534972422), (+1.1239823211051376, +0.99671638068664448), (+1.3749466998488322, +0.49716751957842864E-1), (+1.6494923964165045, +0.85435826293661532), (+1.9351992134577078, +0.25792071678623685), (+1.2047145979348841, +0.93661826259017622), (+1.7628660912867959, +0.35941446818265499)

232reltol = sqrt(epsilon(1._TKC))

233reltol

234+0.14901161193847656E-7

235isClose(data, adat, reltol = reltol)

236T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

237call setAsserted(all(isClose(data, adat, reltol = reltol)))

238

239lenData = getUnifRand(5, 100)

240lenData

241+7

242data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

243data

244(+1.41362371802640688698437930915708969, +0.832905999279267051128488834027342317), (+1.22294136243289585471313098600768663, +0.805497891391921898287805911018085009), (+1.17870372401378360905320091714911342, +0.169074305490207267620590464261900512), (+1.99937842749713064713053407920344041, +0.572045431986090578527788796128410392), (+1.64977989674456368781925693563500954, +0.494728306748704157273397261607788699), (+1.75986876928042615188133843225829133, +0.877249855542869022159611122777149242E-1), (+1.43050343256355763762612511753608050, +0.112149650608742687593702156560336914)

245

246adat = getFFTI(getFFTF(data))

247adat

248(+1.41362371802640688698437930915708969, +0.832905999279267051128488834027342221), (+1.22294136243289585471313098600768663, +0.805497891391921898287805911018085009), (+1.17870372401378360905320091714911361, +0.169074305490207267620590464261900488), (+1.99937842749713064713053407920344022, +0.572045431986090578527788796128410200), (+1.64977989674456368781925693563500916, +0.494728306748704157273397261607788507), (+1.75986876928042615188133843225829133, +0.877249855542869022159611122777148881E-1), (+1.43050343256355763762612511753608069, +0.112149650608742687593702156560336974)

249reltol = sqrt(epsilon(1._TKC))

250reltol

251+0.138777878078144567552953958511352539E-16

252isClose(data, adat, reltol = reltol)

253T, T, T, T, T, T, T

254call setAsserted(all(isClose(data, adat, reltol = reltol)))

255

256lenData = getUnifRand(5, 100)

257lenData

258+28

259data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

260data

261+1.99592757, +1.75691056, +1.09160566, +1.09022141, +1.02572441, +1.99425626, +1.44435000, +1.30974078, +1.30281687, +1.81160951, +1.54658246, +1.27034271, +1.09094143, +1.80127501, +1.06040299, +1.44405770, +1.75496483, +1.90560150, +1.37249136, +1.19038248, +1.24474716, +1.16557574, +1.86437774, +1.88396513, +1.33172679, +1.83567595, +1.00403786, +1.04887629

262

263adat = getFFTI(getFFTF(data))

264adat

265+1.99592781, +1.75691080, +1.09160590, +1.09022141, +1.02572453, +1.99425638, +1.44435036, +1.30974090, +1.30281711, +1.81160951, +1.54658282, +1.27034271, +1.09094167, +1.80127501, +1.06040323, +1.44405794, +1.75496495, +1.90560162, +1.37249148, +1.19038272, +1.24474740, +1.16557574, +1.86437821, +1.88396513, +1.33172691, +1.83567619, +1.00403810, +1.04887640

266reltol = sqrt(epsilon(1._TKC))

267reltol

268+0.345266977E-3

269isClose(data, adat, reltol = reltol)

270T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

271call setAsserted(all(isClose(data, adat, reltol = reltol)))

272

273lenData = getUnifRand(5, 100)

274lenData

275+41

276data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

277data

278+1.6822317673666376, +1.3656866170591990, +1.3353389351364520, +1.6217195508670175, +1.8088944270660148, +1.4818850679401065, +1.3415381500634045, +1.2315554347500264, +1.3603228205877966, +1.1738850774455614, +1.9466422970962651, +1.8101258502674960, +1.4645765012360445, +1.9694730103155198, +1.5065812716421099, +1.7905130714751856, +1.8229942861996591, +1.7570427119365832, +1.9719972747821553, +1.5572347670093227, +1.9594315750519096, +1.3783769272543092, +1.9893213229612918, +1.8610990305231701, +1.3405410780498439, +1.7872488826915054, +1.4596387372582544, +1.8115258951501927, +1.9570046222780078, +1.9895988790449719, +1.0449077215027489, +1.7155379590105488, +1.5391145257415939, +1.1843957025304965, +1.8656013462107364, +1.3143901674967733, +1.4249719947488668, +1.3449639839821790, +1.4598555931551722, +1.5254185342633224, +1.7606135634194549

279

280adat = getFFTI(getFFTF(data))

281adat

282+1.6822317673666374, +1.3656866170591986, +1.3353389351364522, +1.6217195508670177, +1.8088944270660152, +1.4818850679401068, +1.3415381500634043, +1.2315554347500259, +1.3603228205877962, +1.1738850774455603, +1.9466422970962671, +1.8101258502674973, +1.4645765012360439, +1.9694730103155231, +1.5065812716421108, +1.7905130714751878, +1.8229942861996595, +1.7570427119365835, +1.9719972747821561, +1.5572347670093225, +1.9594315750519098, +1.3783769272543038, +1.9893213229612949, +1.8610990305231701, +1.3405410780498426, +1.7872488826915058, +1.4596387372582549, +1.8115258951501954, +1.9570046222780106, +1.9895988790449748, +1.0449077215027462, +1.7155379590105500, +1.5391145257415946, +1.1843957025304952, +1.8656013462107386, +1.3143901674967724, +1.4249719947488673, +1.3449639839821776, +1.4598555931551724, +1.5254185342633231, +1.7606135634194551

283reltol = sqrt(epsilon(1._TKC))

284reltol

285+0.14901161193847656E-7

286isClose(data, adat, reltol = reltol)

287T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

288call setAsserted(all(isClose(data, adat, reltol = reltol)))

289

290lenData = getUnifRand(5, 100)

291lenData

292+22

293data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

294data

295+1.98027368412725357690027974105725695, +1.49347177348674852084128630074357769, +1.95759335467926199969378246770891555, +1.08671432148747885759533722030099751, +1.65989304476454144629217504951299510, +1.39976965309690942164857115691563859, +1.21091101026984724275270909765160416, +1.49238205609847940533322557232214894, +1.46810680282842595732809145074685528, +1.60116953173358084096338880779152764, +1.83382663736013523453804111226494398, +1.59255045841344278152543839163574977, +1.89942144610970579152450806061631801, +1.72822566563136663247518309903404083, +1.63659424387395447442596062435363348, +1.01632220489544371302980275363229294, +1.79309893340056780818502128286353682, +1.52089228967454162430605312327034773, +1.46030776666952093583741467026724553, +1.56961705557200764143200093074591710, +1.41189992799447985927620382236345561, +1.64437352448759763635023735127071153

296

297adat = getFFTI(getFFTF(data))

298adat

299+1.98027368412725357690027974105725734, +1.49347177348674852084128630074357827, +1.95759335467926199969378246770891555, +1.08671432148747885759533722030099712, +1.65989304476454144629217504951299568, +1.39976965309690942164857115691563897, +1.21091101026984724275270909765160397, +1.49238205609847940533322557232214875, +1.46810680282842595732809145074685605, +1.60116953173358084096338880779152802, +1.83382663736013523453804111226494360, +1.59255045841344278152543839163574900, +1.89942144610970579152450806061631781, +1.72822566563136663247518309903404006, +1.63659424387395447442596062435363425, +1.01632220489544371302980275363229352, +1.79309893340056780818502128286353682, +1.52089228967454162430605312327034754, +1.46030776666952093583741467026724611, +1.56961705557200764143200093074591729, +1.41189992799447985927620382236345542, +1.64437352448759763635023735127071134

300reltol = sqrt(epsilon(1._TKC))

301reltol

302+0.138777878078144567552953958511352539E-16

303isClose(data, adat, reltol = reltol)

304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

305call setAsserted(all(isClose(data, adat, reltol = reltol)))

306

307lenData = getUnifRand(5, 100)

308lenData

309+7

310data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

311data

312(+1.22910190, +0.502851009), (+1.91709995, +0.682208717), (+1.88140512, +0.213477492), (+1.77854729, +0.696174681), (+1.97964740, +0.277151644), (+1.70031965, +0.240084529E-1), (+1.35502458, +0.761512995)

313

314adat = getFFTI(getFFTF(data))

315adat

316(+1.22910202, +0.502851009), (+1.91709960, +0.682208776), (+1.88140512, +0.213477343), (+1.77854753, +0.696174741), (+1.97964740, +0.277151734), (+1.70031953, +0.240083430E-1), (+1.35502446, +0.761513054)

317reltol = sqrt(epsilon(1._TKC))

318reltol

319+0.345266977E-3

320isClose(data, adat, reltol = reltol)

321T, T, T, T, T, T, T

322call setAsserted(all(isClose(data, adat, reltol = reltol)))

323

324lenData = getUnifRand(5, 100)

325lenData

326+63

327data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

328data

329(+1.6780295541849157, +0.87730178753236909), (+1.2254719739299293, +0.93518158269681895), (+1.5623471259415336, +0.66878203601129715), (+1.2201077858361042, +0.64970604993602177), (+1.2289770900449239, +0.76410039737364699), (+1.1622834118886289, +0.46848088499083063E-1), (+1.9940566248070568, +0.24892871667249106), (+1.1677405201607882, +0.25110904426391234), (+1.3074168136293165, +0.54627263255133884), (+1.8744035977496494, +0.45331316979848835), (+1.8077100585984680, +0.66207801983622250), (+1.8084374764415996, +0.72909000856025541), (+1.5267089945334342, +0.61117147746929223), (+1.4281160073996706, +0.16975680932497139), (+1.4161291416414685, +0.60456135032454672), (+1.9094738121723647, +0.87014263878490716), (+1.5722330515663221, +0.49508989045316665), (+1.5323732002182782, +0.82115619528488115E-1), (+1.2919337084905020, +0.88523811806687003), (+1.2326398819269062, +0.32795099181627030), (+1.5760784541569426, +0.55156652823170971), (+1.5114797133122810, +0.54990186415688846), (+1.0680695692426347, +0.88868039337796967), (+1.6077564272555227, +0.26363430369925611), (+1.4946883852562687, +0.93973399948295233E-1), (+1.6265365004153336, +0.29934753608934106), (+1.1658183384896712, +0.19557598918924046), (+1.1416274228630530, +0.94304188144339607E-2), (+1.3925933758652467, +0.52487029663345885), (+1.4254008313732263, +0.81178459891314669), (+1.5139411497588173, +0.64896034698333471), (+1.7894509832047991, +0.70969146108867509E-1), (+1.2850039223590448, +0.48076970609106540), (+1.7002650732764626, +0.39518827463604078), (+1.1455224242521189, +0.83938993587191679), (+1.4335746573337715, +0.69859077326268659), (+1.3066904227523992, +0.59077768524488428), (+1.0336860686021776, +0.67961455321471786), (+1.9992714637604521, +0.38406227270160398), (+1.9521180904133859, +0.54520072951576704), (+1.2496619869689733, +0.25522945916356488), (+1.3851994532327097, +0.11568372834770169), (+1.2437664442119361, +0.38778137157002890), (+1.2490681780157673, +0.42624041511863686), (+1.2410284125598177, +0.89873955202351230), (+1.2469310236762969, +0.31486106748226017), (+1.5018346139568330, +0.21345655867108160), (+1.8339446373319643, +0.90756255406084096), (+1.1006717282793137, +0.60623595752982318), (+1.0625773471779265, +0.48197613557804386E-2), (+1.1770045753958576, +0.15572541114679461), (+1.3546171046886450, +0.30518800454118811), (+1.4217012146357497, +0.56180771880963787), (+1.0633951384765183, +0.11386958774935152), (+1.1387410775115652, +0.46905348638523348), (+1.2817427175481917, +0.58640401278757071), (+1.1164753342469980, +0.44977522915638091), (+1.3686737064223669, +0.90711459248473081), (+1.0215073939928714, +0.72540711945630332), (+1.5703316976574033, +0.53089296398199681), (+1.5759253711905037, +0.64398682282468167), (+1.2115523836010846, +0.90558349066926291), (+1.3626327483840015, +0.91042845836394681)

330

331adat = getFFTI(getFFTF(data))

332adat

333(+1.6780295541849153, +0.87730178753236909), (+1.2254719739299296, +0.93518158269681884), (+1.5623471259415336, +0.66878203601129704), (+1.2201077858361040, +0.64970604993602155), (+1.2289770900449239, +0.76410039737364710), (+1.1622834118886285, +0.46848088499083292E-1), (+1.9940566248070566, +0.24892871667249120), (+1.1677405201607884, +0.25110904426391251), (+1.3074168136293167, +0.54627263255133884), (+1.8744035977496494, +0.45331316979848835), (+1.8077100585984680, +0.66207801983622239), (+1.8084374764415991, +0.72909000856025541), (+1.5267089945334347, +0.61117147746929223), (+1.4281160073996708, +0.16975680932497159), (+1.4161291416414683, +0.60456135032454661), (+1.9094738121723644, +0.87014263878490716), (+1.5722330515663225, +0.49508989045316676), (+1.5323732002182777, +0.82115619528487907E-1), (+1.2919337084905020, +0.88523811806686992), (+1.2326398819269062, +0.32795099181627047), (+1.5760784541569424, +0.55156652823170982), (+1.5114797133122806, +0.54990186415688858), (+1.0680695692426352, +0.88868039337796956), (+1.6077564272555225, +0.26363430369925606), (+1.4946883852562687, +0.93973399948295261E-1), (+1.6265365004153334, +0.29934753608934123), (+1.1658183384896712, +0.19557598918924032), (+1.1416274228630532, +0.94304188144341029E-2), (+1.3925933758652467, +0.52487029663345885), (+1.4254008313732263, +0.81178459891314658), (+1.5139411497588173, +0.64896034698333460), (+1.7894509832047987, +0.70969146108867481E-1), (+1.2850039223590444, +0.48076970609106529), (+1.7002650732764626, +0.39518827463604084), (+1.1455224242521194, +0.83938993587191690), (+1.4335746573337711, +0.69859077326268648), (+1.3066904227523992, +0.59077768524488450), (+1.0336860686021778, +0.67961455321471775), (+1.9992714637604516, +0.38406227270160376), (+1.9521180904133855, +0.54520072951576704), (+1.2496619869689740, +0.25522945916356515), (+1.3851994532327097, +0.11568372834770180), (+1.2437664442119361, +0.38778137157002895), (+1.2490681780157680, +0.42624041511863686), (+1.2410284125598174, +0.89873955202351208), (+1.2469310236762967, +0.31486106748225978), (+1.5018346139568326, +0.21345655867108165), (+1.8339446373319639, +0.90756255406084085), (+1.1006717282793137, +0.60623595752982329), (+1.0625773471779263, +0.48197613557803944E-2), (+1.1770045753958576, +0.15572541114679472), (+1.3546171046886453, +0.30518800454118816), (+1.4217012146357497, +0.56180771880963798), (+1.0633951384765181, +0.11386958774935138), (+1.1387410775115654, +0.46905348638523359), (+1.2817427175481917, +0.58640401278757082), (+1.1164753342469975, +0.44977522915638080), (+1.3686737064223669, +0.90711459248473081), (+1.0215073939928714, +0.72540711945630332), (+1.5703316976574029, +0.53089296398199659), (+1.5759253711905035, +0.64398682282468145), (+1.2115523836010857, +0.90558349066926302), (+1.3626327483840013, +0.91042845836394681)

334reltol = sqrt(epsilon(1._TKC))

335reltol

336+0.14901161193847656E-7

337isClose(data, adat, reltol = reltol)

338T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

339call setAsserted(all(isClose(data, adat, reltol = reltol)))

340

341lenData = getUnifRand(5, 100)

342lenData

343+9

344data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

345data

346(+1.72205487139034420984322390588501290, +0.127737566835332939205211069487641082), (+1.72531458014190021032891021262914907, +0.355418367965141239766344109176598646), (+1.39888674901667696486335059159927100, +0.521817955161596959804199162262692798), (+1.83748149712063487315277433109884116, +0.938542340358147505265799773950512362), (+1.35771424998006693377346009407471747, +0.803441256454791958115770351923861399), (+1.52255309676498432858854777650427178, +0.787180728199050035715624722496483750), (+1.66649582815410700563217684757442128, +0.675425177679587911645063330970473991), (+1.74052395756577659023121542867443221, +0.536552934640705873177249239770322549), (+1.82192940614096144451003915430688317, +0.437061349396557808744209390552623541)

347

348adat = getFFTI(getFFTF(data))

349adat

350(+1.72205487139034420984322390588501290, +0.127737566835332939205211069487640986), (+1.72531458014190021032891021262914907, +0.355418367965141239766344109176598646), (+1.39888674901667696486335059159927100, +0.521817955161596959804199162262692798), (+1.83748149712063487315277433109884135, +0.938542340358147505265799773950512362), (+1.35771424998006693377346009407471766, +0.803441256454791958115770351923861303), (+1.52255309676498432858854777650427178, +0.787180728199050035715624722496483654), (+1.66649582815410700563217684757442128, +0.675425177679587911645063330970473895), (+1.74052395756577659023121542867443202, +0.536552934640705873177249239770322549), (+1.82192940614096144451003915430688317, +0.437061349396557808744209390552623397)

351reltol = sqrt(epsilon(1._TKC))

352reltol

353+0.138777878078144567552953958511352539E-16

354isClose(data, adat, reltol = reltol)

355T, T, T, T, T, T, T, T, T

356call setAsserted(all(isClose(data, adat, reltol = reltol)))

357

358lenData = getUnifRand(5, 100)

359lenData

360+7

361data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

362data

363+1.93081009, +1.49173903, +1.61812484, +1.81515419, +1.89934349, +1.63648140, +1.25212085

364

365adat = getFFTI(getFFTF(data))

366adat

367+1.93081033, +1.49173903, +1.61812508, +1.81515431, +1.89934361, +1.63648164, +1.25212097

368reltol = sqrt(epsilon(1._TKC))

369reltol

370+0.345266977E-3

371isClose(data, adat, reltol = reltol)

372T, T, T, T, T, T, T

373call setAsserted(all(isClose(data, adat, reltol = reltol)))

374

375lenData = getUnifRand(5, 100)

376lenData

377+27

378data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

379data

380+1.5851380197049911, +1.8525396530735794, +1.7952688474707106, +1.0104008662972004, +1.9814822095130182, +1.1486024569539395, +1.1673890579250337, +1.4914798071104474, +1.1288267176148594, +1.5008061624119482, +1.7741012542150407, +1.5357284790114727, +1.2219024001602508, +1.9958810571281096, +1.7021174284727367, +1.6300173479020046, +1.0850625461592367, +1.9335164483655098, +1.3173234932558291, +1.7220137068139767, +1.8079869278634111, +1.8921977789814151, +1.7327980850780103, +1.2924903389094875, +1.6811839943003219, +1.0710220788510210, +1.8946350524092406

381

382adat = getFFTI(getFFTF(data))

383adat

384+1.5851380197049914, +1.8525396530735792, +1.7952688474707106, +1.0104008662972004, +1.9814822095130182, +1.1486024569539393, +1.1673890579250334, +1.4914798071104471, +1.1288267176148594, +1.5008061624119486, +1.7741012542150405, +1.5357284790114725, +1.2219024001602505, +1.9958810571281096, +1.7021174284727365, +1.6300173479020046, +1.0850625461592365, +1.9335164483655098, +1.3173234932558293, +1.7220137068139767, +1.8079869278634109, +1.8921977789814146, +1.7327980850780103, +1.2924903389094873, +1.6811839943003217, +1.0710220788510207, +1.8946350524092404

385reltol = sqrt(epsilon(1._TKC))

386reltol

387+0.14901161193847656E-7

388isClose(data, adat, reltol = reltol)

389T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

390call setAsserted(all(isClose(data, adat, reltol = reltol)))

391

392lenData = getUnifRand(5, 100)

393lenData

394+31

395data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

396data

397+1.38615002637800338316890024684807013, +1.49884728768493360655131810041160551, +1.04604358830476083767361772313884736, +1.03136337788524669806074790780835395, +1.64134981590264454774668334226951538, +1.04958079910016318729358195309955739, +1.30140461276175318638806226041043727, +1.09022495048383009179740458729846318, +1.99681402649221206017742780467182661, +1.24745332879520728660403481550845546, +1.80085858265911895677427567396828877, +1.51634176482638902797655746930393106, +1.69436501302368879069101022765799102, +1.63874671094722211343074616558276877, +1.61396465447931479201577464143911181, +1.93148822032068797346654135432514590, +1.91012102116886717806872246993741054, +1.28901203380072431021551432943642756, +1.40659784271711605406563038580635890, +1.30994974259933512096829424331956276, +1.73036500120587578346286593512411530, +1.54577503312377154745482802992089089, +1.11888951617835181095770840162888459, +1.12261754290722670556582864208426815, +1.64745593095362260154905270680914683, +1.60077794164450932113364815260416481, +1.44125273941316771424249072641622965, +1.46563067428220311421460091706214672, +1.47723470413563111758671077931476285, +1.04687914145570574168362595505687053, +1.14217313394874629812510392449293486

398

399adat = getFFTI(getFFTF(data))

400adat

401+1.38615002637800338316890024684806916, +1.49884728768493360655131810041160551, +1.04604358830476083767361772313884716, +1.03136337788524669806074790780835222, +1.64134981590264454774668334226951673, +1.04958079910016318729358195309955547, +1.30140461276175318638806226041043784, +1.09022495048383009179740458729846144, +1.99681402649221206017742780467182911, +1.24745332879520728660403481550845372, +1.80085858265911895677427567396829070, +1.51634176482638902797655746930392990, +1.69436501302368879069101022765799179, +1.63874671094722211343074616558276800, +1.61396465447931479201577464143911354, +1.93148822032068797346654135432514185, +1.91012102116886717806872246993740804, +1.28901203380072431021551432943642718, +1.40659784271711605406563038580635871, +1.30994974259933512096829424331956142, +1.73036500120587578346286593512411645, +1.54577503312377154745482802992089166, +1.11888951617835181095770840162888402, +1.12261754290722670556582864208426719, +1.64745593095362260154905270680914818, +1.60077794164450932113364815260416461, +1.44125273941316771424249072641622984, +1.46563067428220311421460091706214672, +1.47723470413563111758671077931476265, +1.04687914145570574168362595505686976, +1.14217313394874629812510392449293447

402reltol = sqrt(epsilon(1._TKC))

403reltol

404+0.138777878078144567552953958511352539E-16

405isClose(data, adat, reltol = reltol)

406T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

407call setAsserted(all(isClose(data, adat, reltol = reltol)))

408

409lenData = getUnifRand(5, 100)

410lenData

411+78

412data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

413data

414(+1.90394640, +0.460448682), (+1.07191062, +0.415018678), (+1.79486799, +0.212742329), (+1.69498396, +0.202519298), (+1.34252489, +0.807224512), (+1.16585732, +0.190700531), (+1.34564877, +0.495664418), (+1.55386877, +0.647194088), (+1.87922907, +0.322189867), (+1.00905967, +0.454876840), (+1.64249969, +0.244777858), (+1.04797482, +0.676578045), (+1.90439916, +0.834986329), (+1.71079874, +0.186165988), (+1.87909126, +0.999333978), (+1.04421580, +0.465267539), (+1.25151420, +0.166831613), (+1.33640182, +0.545701444), (+1.05047119, +0.336321771), (+1.93038607, +0.357787848), (+1.85234666, +0.371653557), (+1.25716496, +0.156886041), (+1.78259230, +0.378713667), (+1.75026989, +0.101968527), (+1.57508993, +0.850231051), (+1.26154351, +0.776563287E-1), (+1.63270092, +0.311528087), (+1.63582599, +0.206208825), (+1.71217346, +0.671716452), (+1.50881958, +0.676786840), (+1.61157036, +0.335482299), (+1.90217209, +0.777892947), (+1.43643379, +0.552515984E-1), (+1.59535718, +0.728633463), (+1.45349216, +0.983358324), (+1.15022635, +0.836426497), (+1.13160610, +0.165612936), (+1.80108619, +0.953373611), (+1.11218715, +0.631974041), (+1.98901868, +0.491205752), (+1.57605767, +0.780287266), (+1.27647054, +0.663310289E-1), (+1.83302951, +0.141577780), (+1.85282886, +0.595768452), (+1.67806840, +0.810394526), (+1.70645833, +0.246202350), (+1.56767130, +0.529700518E-2), (+1.96146154, +0.703298151), (+1.26588905, +0.632549107), (+1.82956934, +0.738243639), (+1.69415402, +0.463340402), (+1.85077238, +0.774256706), (+1.25604033, +0.840086102), (+1.05772150, +0.692977071), (+1.54934859, +0.265007854), (+1.06982684, +0.490146160), (+1.30838597, +0.584976315), (+1.72749913, +0.777774572), (+1.65042603, +0.285071671), (+1.33891535, +0.591800570), (+1.12425184, +0.290126026), (+1.21884477, +0.852401614), (+1.21485674, +0.448732138), (+1.10600924, +0.622364879), (+1.60768068, +0.424602807), (+1.64225113, +0.891869545), (+1.12379789, +0.920993626), (+1.29081464, +0.435118556), (+1.71250272, +0.938992381), (+1.74053073, +0.636380374), (+1.55845916, +0.230707884), (+1.96248627, +0.368903935), (+1.13222754, +0.787821293), (+1.07128096, +0.956815004), (+1.35105491, +0.451270580), (+1.38489306, +0.813509524), (+1.96006608, +0.363518000), (+1.24411201, +0.190221906)

415

416adat = getFFTI(getFFTF(data))

417adat

418(+1.90394652, +0.460448653), (+1.07191074, +0.415018618), (+1.79486811, +0.212742299), (+1.69498432, +0.202519298), (+1.34252477, +0.807224512), (+1.16585708, +0.190700427), (+1.34564900, +0.495664507), (+1.55386913, +0.647194088), (+1.87922871, +0.322189778), (+1.00905967, +0.454876721), (+1.64249992, +0.244777903), (+1.04797482, +0.676577926), (+1.90439916, +0.834986210), (+1.71079862, +0.186165795), (+1.87909150, +0.999333978), (+1.04421592, +0.465267479), (+1.25151443, +0.166831762), (+1.33640218, +0.545701325), (+1.05047095, +0.336321831), (+1.93038654, +0.357787877), (+1.85234714, +0.371653646), (+1.25716472, +0.156886026), (+1.78259242, +0.378713667), (+1.75027001, +0.101968519), (+1.57508993, +0.850231111), (+1.26154327, +0.776561871E-1), (+1.63270068, +0.311528087), (+1.63582623, +0.206208870), (+1.71217370, +0.671716571), (+1.50881994, +0.676786602), (+1.61157048, +0.335482240), (+1.90217185, +0.777893007), (+1.43643427, +0.552517325E-1), (+1.59535778, +0.728633523), (+1.45349193, +0.983358324), (+1.15022647, +0.836426497), (+1.13160634, +0.165612832), (+1.80108631, +0.953373551), (+1.11218691, +0.631973982), (+1.98901880, +0.491205662), (+1.57605779, +0.780287266), (+1.27647090, +0.663309619E-1), (+1.83302975, +0.141577721), (+1.85282886, +0.595768332), (+1.67806816, +0.810394466), (+1.70645893, +0.246202424), (+1.56767166, +0.529704941E-2), (+1.96146119, +0.703297913), (+1.26588905, +0.632548928), (+1.82956934, +0.738243580), (+1.69415426, +0.463340431), (+1.85077262, +0.774256647), (+1.25604022, +0.840085924), (+1.05772150, +0.692977011), (+1.54934895, +0.265007854), (+1.06982720, +0.490146190), (+1.30838609, +0.584976375), (+1.72749901, +0.777774453), (+1.65042639, +0.285071731), (+1.33891571, +0.591800570), (+1.12425160, +0.290126055), (+1.21884513, +0.852401555), (+1.21485686, +0.448732197), (+1.10600913, +0.622364879), (+1.60768056, +0.424602598), (+1.64225101, +0.891869366), (+1.12379789, +0.920993507), (+1.29081476, +0.435118496), (+1.71250308, +0.938992321), (+1.74053073, +0.636380315), (+1.55845892, +0.230707765), (+1.96248662, +0.368903965), (+1.13222790, +0.787821412), (+1.07128072, +0.956814885), (+1.35105479, +0.451270521), (+1.38489330, +0.813509524), (+1.96006620, +0.363518119), (+1.24411166, +0.190221816)

419reltol = sqrt(epsilon(1._TKC))

420reltol

421+0.345266977E-3

422isClose(data, adat, reltol = reltol)

423T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

424call setAsserted(all(isClose(data, adat, reltol = reltol)))

425

426lenData = getUnifRand(5, 100)

427lenData

428+68

429data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

430data

431(+1.8836337929521831, +0.77301397808154337), (+1.6071530684810096, +0.78826179833830412), (+1.1146656743510608, +0.55800532462552122), (+1.8578492407612426, +0.88329263014314585), (+1.3863088310957599, +0.47767389794672033), (+1.9667154566563210, +0.46904071166808936), (+1.6676928729111713, +0.52667179152004273), (+1.8573209905239902, +0.92334124734964229), (+1.8203993584695390, +0.30321670598964923), (+1.5581019227421826, +0.80220798750115929), (+1.3475266712943859, +0.20647015008588498), (+1.6952939323834122, +0.94790184032932179), (+1.5964188300843771, +0.43890409667463115), (+1.1726470658437869, +0.65732645088012309), (+1.6978802153098405, +0.87780034451876154), (+1.4071888855883805, +0.90249707031995241), (+1.7836815759543694, +0.73962205941273762), (+1.1563777420692229, +0.51434200590007095), (+1.1148217588583864, +0.30632683369015312), (+1.2561463956058225, +0.86864079036297426), (+1.5383372995531364, +0.88122470732646208), (+1.0320867674290106, +0.99949408803261452), (+1.3457966876816760, +0.23608723687284661), (+1.9857507082417603, +0.84169842155004604), (+1.7357002169260265, +0.14187577587894973), (+1.7015982638415856, +0.76776718663840726E-1), (+1.4176671353560519, +0.69167549262776606), (+1.5271235385479787, +0.75919840998763577), (+1.6488105236302837, +0.25450541374663815), (+1.6916100594250587, +0.34904345455941010E-1), (+1.7446159500388931, +0.84624707469277327), (+1.7143125597102171, +0.94971200395723765), (+1.0680214572078510, +0.62944631800554784), (+1.9952679890326426, +0.66883752163437948), (+1.9984391620604895, +0.30018418323062201), (+1.1628091317670868, +0.51440736468047565), (+1.1926934843797494, +0.97348187829118094), (+1.2598534432291464, +0.58995968777322605), (+1.4856931539201086, +0.32556566662846154), (+1.7964243676331293, +0.88685193102591520), (+1.7365887750866320, +0.45385570095444627), (+1.0991549342942839, +0.52698117489743190), (+1.7849231326367181, +0.12948386150835334), (+1.3377044105743936, +0.19657690585111998), (+1.1865950252851114, +0.60302830104674021), (+1.9244619543662562, +0.45969790942890698), (+1.7013553905358743, +0.52082541964445961), (+1.8926976511665554, +0.13535338463655788), (+1.0643155876443839, +0.63895925639511697), (+1.7588877812711181, +0.69664535206475031), (+1.0062679897068745, +0.16700623871498110), (+1.1621966863957245, +0.28722761430907828), (+1.8706212663050330, +0.52288436644948311E-1), (+1.9491820321624924, +0.32234216819204564), (+1.1725687943328409, +0.19420295738953042), (+1.5022523963051984, +0.43579170386576349), (+1.3350531090916169, +0.66345482953438628), (+1.9653572005328046, +0.56594577224938369), (+1.4081764642155723, +0.47112916178808284), (+1.6600620500136321, +0.31300379177851789), (+1.9981536388124561, +0.88462580686164616), (+1.1325707888177101, +0.13092509663853413), (+1.5113761004027277, +0.28723209715765541), (+1.3004409640263677, +0.48668776380357626), (+1.0972680408733666, +0.36485192006261435E-2), (+1.3858716916911087, +0.98983150699656075), (+1.6870630905951067, +0.84135450325937200), (+1.5571339785060807, +0.24131946844743235)

432

433adat = getFFTI(getFFTF(data))

434adat

435(+1.8836337929521827, +0.77301397808154326), (+1.6071530684810096, +0.78826179833830379), (+1.1146656743510610, +0.55800532462552133), (+1.8578492407612424, +0.88329263014314585), (+1.3863088310957592, +0.47767389794672016), (+1.9667154566563207, +0.46904071166808925), (+1.6676928729111706, +0.52667179152004262), (+1.8573209905239902, +0.92334124734964229), (+1.8203993584695386, +0.30321670598964917), (+1.5581019227421822, +0.80220798750115918), (+1.3475266712943859, +0.20647015008588512), (+1.6952939323834120, +0.94790184032932134), (+1.5964188300843769, +0.43890409667463121), (+1.1726470658437866, +0.65732645088012276), (+1.6978802153098400, +0.87780034451876143), (+1.4071888855883807, +0.90249707031995241), (+1.7836815759543694, +0.73962205941273740), (+1.1563777420692227, +0.51434200590007073), (+1.1148217588583862, +0.30632683369015284), (+1.2561463956058225, +0.86864079036297415), (+1.5383372995531361, +0.88122470732646185), (+1.0320867674290100, +0.99949408803261408), (+1.3457966876816756, +0.23608723687284658), (+1.9857507082417598, +0.84169842155004593), (+1.7357002169260269, +0.14187577587894989), (+1.7015982638415850, +0.76776718663840740E-1), (+1.4176671353560513, +0.69167549262776595), (+1.5271235385479782, +0.75919840998763566), (+1.6488105236302832, +0.25450541374663821), (+1.6916100594250585, +0.34904345455940969E-1), (+1.7446159500388929, +0.84624707469277305), (+1.7143125597102169, +0.94971200395723709), (+1.0680214572078508, +0.62944631800554784), (+1.9952679890326424, +0.66883752163437948), (+1.9984391620604895, +0.30018418323062201), (+1.1628091317670868, +0.51440736468047532), (+1.1926934843797492, +0.97348187829118094), (+1.2598534432291459, +0.58995968777322605), (+1.4856931539201081, +0.32556566662846148), (+1.7964243676331291, +0.88685193102591497), (+1.7365887750866313, +0.45385570095444627), (+1.0991549342942841, +0.52698117489743179), (+1.7849231326367179, +0.12948386150835342), (+1.3377044105743929, +0.19657690585111970), (+1.1865950252851116, +0.60302830104674032), (+1.9244619543662558, +0.45969790942890687), (+1.7013553905358738, +0.52082541964445928), (+1.8926976511665548, +0.13535338463655786), (+1.0643155876443837, +0.63895925639511675), (+1.7588877812711179, +0.69664535206475031), (+1.0062679897068747, +0.16700623871498096), (+1.1621966863957240, +0.28722761430907806), (+1.8706212663050330, +0.52288436644948165E-1), (+1.9491820321624920, +0.32234216819204564), (+1.1725687943328404, +0.19420295738953020), (+1.5022523963051979, +0.43579170386576338), (+1.3350531090916169, +0.66345482953438650), (+1.9653572005328039, +0.56594577224938369), (+1.4081764642155723, +0.47112916178808273), (+1.6600620500136316, +0.31300379177851773), (+1.9981536388124554, +0.88462580686164627), (+1.1325707888177099, +0.13092509663853422), (+1.5113761004027277, +0.28723209715765524), (+1.3004409640263674, +0.48668776380357615), (+1.0972680408733664, +0.36485192006262220E-2), (+1.3858716916911082, +0.98983150699656053), (+1.6870630905951067, +0.84135450325937200), (+1.5571339785060809, +0.24131946844743238)

436reltol = sqrt(epsilon(1._TKC))

437reltol

438+0.14901161193847656E-7

439isClose(data, adat, reltol = reltol)

440T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

441call setAsserted(all(isClose(data, adat, reltol = reltol)))

442

443lenData = getUnifRand(5, 100)

444lenData

445+78

446data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)

447data

448(+1.62572312979125263919766717117423078, +0.678971641961090431734139905590484779), (+1.76293813510942574234709025691872808, +0.969142804704112500706055372998923208E-1), (+1.35087878455280377442220444288104338, +0.257739055707605304873275614972071521), (+1.85613316508241395747006329783332028, +0.992851135915882433807434325423146028), (+1.76340636621893695825506574245604002, +0.565187510181155351500034794755763288), (+1.26481775832687720417804601212794623, +0.979384689601216719077967341021349936E-1), (+1.01973906382911540579966482880164301, +0.420189186132917927490422680680813574), (+1.11618742009575209633509689325818318, +0.976537856917117665288557730280317782), (+1.54307602421196960990750082654161878, +0.393012038847363113578170442618919711), (+1.48714132970287001380205529989013341, +0.891803814366714207227262623236089706), (+1.76629093002346167484626212391339634, +0.369130070649625035871247034915286859E-1), (+1.10775827566651626153054318879889318, +0.303271876699798465378494305615581316), (+1.58334532635829627628462948765221618, +0.671366393998049202436433113659463818), (+1.40411335897693434120341319519044461, +0.147250313490280853721508000261300454), (+1.41446434734546583767626039988412295, +0.693884709882222535280408807816113374), (+1.32952933894812373368525819742601535, +0.301558943988524146000406162001354024), (+1.51376269302784131287955779648311365, +0.880082930158258076704764883351733336E-1), (+1.60643750399783253047989508369336085, +0.823151591121506771155084981713547641), (+1.13811395420510943829550853542117715, +0.714734607348695809382237857067176917), (+1.12555401775250109669683303600822500, +0.217280745095502679741775108377546317), (+1.49774166861362005084723140469202328, +0.749512550615723712189561203930738635), (+1.12262831122285806944497842666418962, +0.796631260465830285399003837432530344), (+1.03506734633918322256361146052740945, +0.175081404411161285247051522679754659), (+1.14782847413710890396423687144736674, +0.742589949998263997801471058813891749), (+1.67619838230727104797951494651367243, +0.110228925213693795500047712330316720E-1), (+1.88847178650193759148151447034690151, +0.956476510002505219025932539566372782), (+1.21062957930379519209667639026492633, +0.877506512985996941080435310255184498), (+1.08488724281984847496757173822198085, +0.448911777863820760560104991598910914), (+1.23982867018692397949287692218690470, +0.981799102983702361559288520185481416), (+1.83911030072879442789925142895983549, +0.366274404424473257518147717250485823), (+1.48087991868193511942841765910825930, +0.551494176516994954875030617600067282), (+1.18524056205170277039285384108759554, +0.488403125942919858722434660387415668), (+1.37126052764917826823205922962516081, +0.823580186686760212447000600497570092), (+1.22135647872549543354867327250039059, +0.208380961873597960582163676527660778), (+1.07939552955013638816767551794737827, +0.881008107576041412760761534105921214E-1), (+1.05070131883330060589910517045993580, +0.123750569734597374445634320350746434), (+1.89791910211180604984351696749856100, +0.167694413428581476082421158231888080), (+1.77735139094001979279260452739252424, +0.610098155473798364137421097119128807), (+1.54601348292678880451743781890247867, +0.541082728345256419905194821278283170), (+1.36735844215051690430701797676728837, +0.663856179800268467543809502021154645E-1), (+1.82109141966879317851077570832733330, +0.678120259084824900468095676180776206), (+1.88773504149501385811569660905537751, +0.165976651377854017855971690129928887), (+1.35525093607844841040620600946530347, +0.694185321962353920383310768315030305), (+1.25196683975926788414319436306968445, +0.399621188225453955168136531450623258), (+1.87202430218092395226526175884760765, +0.880540684425171076440657996503501917), (+1.89180023839219164592907964691293413, +0.290480528572763146187579160349882529), (+1.90496466355442524927537252968540440, +0.385172038171469094438130586807771089), (+1.90172214771444099435857028821577180, +0.638247507732113683046803689702501409), (+1.86390271223398587175062739432461766, +0.737027080781443064784138313413895771E-1), (+1.01345801837429759303662152299404833, +0.669224743763999529004360974089448978), (+1.78621563738469107669506014677382150, +0.825573091520068128832005319992996378), (+1.22796912688128231190402011184376049, +0.771349194335613789633217999092778267), (+1.97812762662476351414353133339193431, +0.929171840318433374772407195840902423), (+1.68206646725037394058971547091605588, +0.487455627860409177648672789372341293), (+1.55807651698448180667989354188212823, +0.452266587591266899710052120100295473), (+1.47170785123493318662728024994492239, +0.930783266223309707990324795900865897), (+1.19145274247344993697795301621060711, +0.158804744286417034313086710070820642), (+1.36823890351044528488623313181542833, +0.892339251150839357627667684610041932), (+1.43278551203598594539313222061151677, +0.469846418826716725378313270207896361), (+1.91390311971010365806968508589652277, +0.638572630063752923593011649596557139), (+1.59171613011600699596163578283112262, +0.303335392631388559436107834170174240), (+1.49017251226559534354751113615003495, +0.971359144418532269081421525010603721), (+1.83332807363265023446452378054207510, +0.133035813610686244157007548847149497E-1), (+1.10209949837580136418330590847997612, +0.821332841704069308261052505360397778E-2), (+1.45084924946089719262462968343345266, +0.349686336736944424313924465580387532), (+1.52011069584965365666017168219428430, +0.668146501705467110491873094330995719), (+1.25808834247258763028167575608470606, +0.895680124826062968536998888510531397), (+1.77361966186409461360762512237400742, +0.833432874283976111956584893096479171), (+1.67735117085672936363787713588157650, +0.212577117914379394287624245642558540), (+1.09537276702511107205329744946266803, +0.427958204532607585226858900703405302), (+1.41317907765086532199674095287437469, +0.961268674003561917410970374506733778), (+1.09714743061860969726215430318795488, +0.766918359742563683138668271896568605), (+1.57237850227160264179652483683836965, +0.578376584538114046319494988301921514), (+1.80601308644410694518769696778831503, +0.554521492408459035172684524069841466), (+1.31834722476601643296735426551876810, +0.832265588060050988949507752387238594), (+1.82300243871934930950005638664960345, +0.631686855537637853299804674390081943), (+1.61687322924158070012804164297676580, +0.852126169977807287534586279389760175), (+1.91980290719936312438967764681831314, +0.223650778579244465567206766007952018)

449

450adat = getFFTI(getFFTF(data))

451adat

452(+1.62572312979125263919766717117423097, +0.678971641961090431734139905590484875), (+1.76293813510942574234709025691872789, +0.969142804704112500706055372998922968E-1), (+1.35087878455280377442220444288104357, +0.257739055707605304873275614972071713), (+1.85613316508241395747006329783331989, +0.992851135915882433807434325423146028), (+1.76340636621893695825506574245603964, +0.565187510181155351500034794755762903), (+1.26481775832687720417804601212794642, +0.979384689601216719077967341021346686E-1), (+1.01973906382911540579966482880164321, +0.420189186132917927490422680680813574), (+1.11618742009575209633509689325818357, +0.976537856917117665288557730280317782), (+1.54307602421196960990750082654161916, +0.393012038847363113578170442618919567), (+1.48714132970287001380205529989013360, +0.891803814366714207227262623236089514), (+1.76629093002346167484626212391339653, +0.369130070649625035871247034915288605E-1), (+1.10775827566651626153054318879889357, +0.303271876699798465378494305615581508), (+1.58334532635829627628462948765221599, +0.671366393998049202436433113659463722), (+1.40411335897693434120341319519044461, +0.147250313490280853721508000261300479), (+1.41446434734546583767626039988412295, +0.693884709882222535280408807816113374), (+1.32952933894812373368525819742601555, +0.301558943988524146000406162001353976), (+1.51376269302784131287955779648311384, +0.880082930158258076704764883351729966E-1), (+1.60643750399783253047989508369336008, +0.823151591121506771155084981713547448), (+1.13811395420510943829550853542117753, +0.714734607348695809382237857067176725), (+1.12555401775250109669683303600822520, +0.217280745095502679741775108377546124), (+1.49774166861362005084723140469202347, +0.749512550615723712189561203930738731), (+1.12262831122285806944497842666419001, +0.796631260465830285399003837432530152), (+1.03506734633918322256361146052740907, +0.175081404411161285247051522679754514), (+1.14782847413710890396423687144736674, +0.742589949998263997801471058813891749), (+1.67619838230727104797951494651367263, +0.110228925213693795500047712330317803E-1), (+1.88847178650193759148151447034690132, +0.956476510002505219025932539566372396), (+1.21062957930379519209667639026492710, +0.877506512985996941080435310255184594), (+1.08488724281984847496757173822198066, +0.448911777863820760560104991598911010), (+1.23982867018692397949287692218690470, +0.981799102983702361559288520185481705), (+1.83911030072879442789925142895983549, +0.366274404424473257518147717250485727), (+1.48087991868193511942841765910825930, +0.551494176516994954875030617600067089), (+1.18524056205170277039285384108759573, +0.488403125942919858722434660387415428), (+1.37126052764917826823205922962516100, +0.823580186686760212447000600497570092), (+1.22135647872549543354867327250039097, +0.208380961873597960582163676527660778), (+1.07939552955013638816767551794737847, +0.881008107576041412760761534105921214E-1), (+1.05070131883330060589910517045993542, +0.123750569734597374445634320350746109), (+1.89791910211180604984351696749856081, +0.167694413428581476082421158231888032), (+1.77735139094001979279260452739252520, +0.610098155473798364137421097119128903), (+1.54601348292678880451743781890247848, +0.541082728345256419905194821278283074), (+1.36735844215051690430701797676728875, +0.663856179800268467543809502021154404E-1), (+1.82109141966879317851077570832733292, +0.678120259084824900468095676180776302), (+1.88773504149501385811569660905537789, +0.165976651377854017855971690129928863), (+1.35525093607844841040620600946530328, +0.694185321962353920383310768315030305), (+1.25196683975926788414319436306968387, +0.399621188225453955168136531450623017), (+1.87202430218092395226526175884760785, +0.880540684425171076440657996503501724), (+1.89180023839219164592907964691293451, +0.290480528572763146187579160349882432), (+1.90496466355442524927537252968540459, +0.385172038171469094438130586807771329), (+1.90172214771444099435857028821577238, +0.638247507732113683046803689702501313), (+1.86390271223398587175062739432461805, +0.737027080781443064784138313413893243E-1), (+1.01345801837429759303662152299404853, +0.669224743763999529004360974089448785), (+1.78621563738469107669506014677382208, +0.825573091520068128832005319992996475), (+1.22796912688128231190402011184376030, +0.771349194335613789633217999092778074), (+1.97812762662476351414353133339193450, +0.929171840318433374772407195840902615), (+1.68206646725037394058971547091605588, +0.487455627860409177648672789372340908), (+1.55807651698448180667989354188212862, +0.452266587591266899710052120100295665), (+1.47170785123493318662728024994492258, +0.930783266223309707990324795900865800), (+1.19145274247344993697795301621060691, +0.158804744286417034313086710070820473), (+1.36823890351044528488623313181542852, +0.892339251150839357627667684610041547), (+1.43278551203598594539313222061151696, +0.469846418826716725378313270207896602), (+1.91390311971010365806968508589652316, +0.638572630063752923593011649596557139), (+1.59171613011600699596163578283112301, +0.303335392631388559436107834170174143), (+1.49017251226559534354751113615003476, +0.971359144418532269081421525010603336), (+1.83332807363265023446452378054207491, +0.133035813610686244157007548847151152E-1), (+1.10209949837580136418330590847997631, +0.821332841704069308261052505360408611E-2), (+1.45084924946089719262462968343345266, +0.349686336736944424313924465580387244), (+1.52011069584965365666017168219428468, +0.668146501705467110491873094330995623), (+1.25808834247258763028167575608470606, +0.895680124826062968536998888510531397), (+1.77361966186409461360762512237400723, +0.833432874283976111956584893096479267), (+1.67735117085672936363787713588157650, +0.212577117914379394287624245642558395), (+1.09537276702511107205329744946266745, +0.427958204532607585226858900703405302), (+1.41317907765086532199674095287437507, +0.961268674003561917410970374506733489), (+1.09714743061860969726215430318795527, +0.766918359742563683138668271896568413), (+1.57237850227160264179652483683836984, +0.578376584538114046319494988301921417), (+1.80601308644410694518769696778831542, +0.554521492408459035172684524069841370), (+1.31834722476601643296735426551876791, +0.832265588060050988949507752387238208), (+1.82300243871934930950005638664960365, +0.631686855537637853299804674390081847), (+1.61687322924158070012804164297676657, +0.852126169977807287534586279389760656), (+1.91980290719936312438967764681831352, +0.223650778579244465567206766007951873)

453reltol = sqrt(epsilon(1._TKC))

454reltol

455+0.138777878078144567552953958511352539E-16

456isClose(data, adat, reltol = reltol)

457T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

458call setAsserted(all(isClose(data, adat, reltol = reltol)))

459

460lenData = getUnifRand(5, 100)

461lenData

462+30

463data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

464data

465+1.72510993, +1.22934532, +1.40481079, +1.49517834, +1.87596416, +1.13065171, +1.67047143, +1.44871473, +1.52051592, +1.93438458, +1.64999056, +1.30280566, +1.88104224, +1.22259784, +1.10261559, +1.59461629, +1.99938750, +1.75465155, +1.51713347, +1.54207742, +1.07060194, +1.64111948, +1.39232922, +1.47507715, +1.83879042, +1.35259271, +1.88723779, +1.71520972, +1.61504316, +1.25989389

466

467adat = getFFTI(getFFTF(data))

468adat

469+1.72510958, +1.22934544, +1.40481055, +1.49517834, +1.87596405, +1.13065171, +1.67047143, +1.44871509, +1.52051592, +1.93438494, +1.64999068, +1.30280590, +1.88104236, +1.22259808, +1.10261559, +1.59461677, +1.99938774, +1.75465202, +1.51713336, +1.54207766, +1.07060182, +1.64111996, +1.39232945, +1.47507739, +1.83879030, +1.35259306, +1.88723779, +1.71521020, +1.61504316, +1.25989413

470reltol = sqrt(epsilon(1._TKC))

471reltol

472+0.345266977E-3

473isClose(data, adat, reltol = reltol)

474T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

475call setAsserted(all(isClose(data, adat, reltol = reltol)))

476

477lenData = getUnifRand(5, 100)

478lenData

479+30

480data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

481data

482+1.1086626703005469, +1.2342909328830634, +1.0987422812962009, +1.6610298472333866, +1.1445230207686170, +1.3086952601566986, +1.1623926916030811, +1.7001387565320596, +1.9222399036910358, +1.5424067794412171, +1.1182950267552967, +1.9684490794021565, +1.9738326496291116, +1.1357416233974327, +1.0085450135170679, +1.3478009057077815, +1.0011671839513099, +1.9740716189926164, +1.8163675428362489, +1.4497054082680818, +1.9410908426579989, +1.4881125451291508, +1.5167275546987780, +1.5464387524224699, +1.9048135447278740, +1.9080256423129267, +1.5055582411393513, +1.5278424221239271, +1.0572196602904151, +1.6547745071132520

483

484adat = getFFTI(getFFTF(data))

485adat

486+1.1086626703005473, +1.2342909328830634, +1.0987422812962013, +1.6610298472333869, +1.1445230207686170, +1.3086952601566992, +1.1623926916030811, +1.7001387565320594, +1.9222399036910358, +1.5424067794412168, +1.1182950267552962, +1.9684490794021565, +1.9738326496291119, +1.1357416233974325, +1.0085450135170679, +1.3478009057077813, +1.0011671839513099, +1.9740716189926164, +1.8163675428362491, +1.4497054082680818, +1.9410908426579989, +1.4881125451291506, +1.5167275546987780, +1.5464387524224699, +1.9048135447278738, +1.9080256423129265, +1.5055582411393513, +1.5278424221239271, +1.0572196602904149, +1.6547745071132520

487reltol = sqrt(epsilon(1._TKC))

488reltol

489+0.14901161193847656E-7

490isClose(data, adat, reltol = reltol)

491T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

492call setAsserted(all(isClose(data, adat, reltol = reltol)))

493

494lenData = getUnifRand(5, 100)

495lenData

496+38

497data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)

498data

499+1.79256522555039392716749070531062705, +1.00567688222736619559888919765226672, +1.20641100964091494746066527411140608, +1.91736391459430286122066068657411220, +1.10939379055243383310396243860329677, +1.38692626781326153794003167901400368, +1.71298265586445177926095459757430291, +1.26119889088097448715420662173815329, +1.58356685687256668489639002392476045, +1.72849308598622993265177780888382696, +1.84893197612096748800296312510568003, +1.75006907217013278828721637094668195, +1.54239673741380306978592771700733660, +1.61592712962331979489534972812082121, +1.09551148324625371162786393730574008, +1.85556049072252278585932787570005756, +1.21566310601942471714735506467942476, +1.93057526602191940205315459996078376, +1.84449431835100955267558714675044817, +1.06947215910833188617613410656198534, +1.58997042430099867446077607905573658, +1.57012087468419748295651197484970093, +1.23156401410743475557946974176112289, +1.04244136197692108912080815210756534, +1.90946109365329548136296119134419395, +1.99764246387640122362146585148468851, +1.39451563071118698344442791010287334, +1.04780677809563936610866234165098003, +1.60116213148779531712047892840932601, +1.36760068536980593568205981560647893, +1.87142999000606686995764561476844984, +1.08132445920643631920685169906600875, +1.36905462273074168344664892374530486, +1.67201676142828707302304971056810235, +1.43676927748811711705948709164849498, +1.62323325881547804041592428527157508, +1.14039094506758864073147595674885922, +1.88414230669981926625316392134349197

500

501adat = getFFTI(getFFTF(data))

502adat

503+1.79256522555039392716749070531062667, +1.00567688222736619559888919765226692, +1.20641100964091494746066527411140550, +1.91736391459430286122066068657411181, +1.10939379055243383310396243860329696, +1.38692626781326153794003167901400522, +1.71298265586445177926095459757430291, +1.26119889088097448715420662173815214, +1.58356685687256668489639002392476141, +1.72849308598622993265177780888382927, +1.84893197612096748800296312510568080, +1.75006907217013278828721637094668137, +1.54239673741380306978592771700733795, +1.61592712962331979489534972812082294, +1.09551148324625371162786393730573854, +1.85556049072252278585932787570005717, +1.21566310601942471714735506467942611, +1.93057526602191940205315459996078819, +1.84449431835100955267558714675044586, +1.06947215910833188617613410656197899, +1.58997042430099867446077607905573253, +1.57012087468419748295651197484970016, +1.23156401410743475557946974176112366, +1.04244136197692108912080815210756534, +1.90946109365329548136296119134419492, +1.99764246387640122362146585148469043, +1.39451563071118698344442791010287353, +1.04780677809563936610866234165098003, +1.60116213148779531712047892840932601, +1.36760068536980593568205981560647912, +1.87142999000606686995764561476845158, +1.08132445920643631920685169906600894, +1.36905462273074168344664892374530409, +1.67201676142828707302304971056810255, +1.43676927748811711705948709164849575, +1.62323325881547804041592428527157642, +1.14039094506758864073147595674885864, +1.88414230669981926625316392134349177

504reltol = sqrt(epsilon(1._TKC))

505reltol

506+0.138777878078144567552953958511352539E-16

507isClose(data, adat, reltol = reltol)

508T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T

509call setAsserted(all(isClose(data, adat, reltol = reltol)))

510

511

Test:: test_pm_fftpack

Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.

Copyright: Computational Data Science Lab

Author:: Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 1567 of file pm_fftpack.F90.

The documentation for this interface was generated from the following file:

/home/amir/git/paramonte/src/fortran/main/pm_fftpack.F90